procedure TForm1.CS1Connecting(Sender: TObject; Socket: TCustomWinSocket);
begin
  Shape3.Brush.Color:=clLime;
end;

procedure TForm1.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Label1.Caption := 'Подключен';
end;

procedure TForm1.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Shape1.Brush.Color:=clLime;
  Label1.Caption := 'Подключились';
  BitBtn2.Enabled:=True;
  logs('Подключились');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 CS1.Socket.SendText(ComboBox1.Text);
end;

CS1.Socket.SendText('$KE,WR,1,1'#13#10); 

CS1.Socket.SendText('$KE,ADC,1'#13#10) 

Memo1.Text:=Socket.ReceiveText;

procedure TForm1.Button4Click(Sender: TObject);
begin
 CS1.Socket.SendText('$KE,ADC,1'#13#10);
 Edit1.Text:=s;
end;

procedure TForm1.CS1Read(Sender: TObject;Socket: TCustomWinSocket);
 begin
  s := Socket.ReceiveText;
end;

#ADC,1,0271

#PSW,SET,OK

CS1.Socket.SendText('$KE,ADC,1'#13#10);

Пример:
Установим высокий уровень напряжения на линии ввода/вывода под номером 16:
запрос: $KE,WR,16,1
ответ: #WR,OK

Vadc:=f/1023.0*3.3;

 Unit1.pas(185): Incompatible types: 'String' and 'Extended'

procedure TForm1.Timer1Timer(Sender: TObject);
begin

 CRbyte := 13; // HEX 0x0D
 LFbyte := 10; // HEX 0x0A

 CS1.Socket.SendText('$KE,ADC,1' + Char(CRbyte) + Char(LFbyte));
 Sleep(500);
 Memo1.Text:=s;

    If RadioButton1.Checked = true
    then
     z:=edit2.Text
    else
     z := CS1.Socket.ReceiveText;

  {z :=trim(z);
   }
  i := pos(',',z);
  if copy(z,0,i-1) = '#ADC' then begin///Если данные от АЦП
  z := copy(z,i+1,length(z));
  i := pos(',',z);
  if copy(z,0,i-1) = '1' then begin///Если это данные с первого канала АЦП
  z := copy(z,pos(',',z)+1,4);///Собственно данные от АЦП

  RM :=5060.0;
  Vadc:=StrToFloat(z)/1023.0*3.3;///Расчет напряжения АЦП в вольтах
  RT:= (Rm*Vadc)/(3.3 - Vadc);///Расчет сопротивленипя терморезистора в омах
  f := (3988.0/({log}(RT/3000.0) + 3988.0/298.0))-273;///Расчет температуры в градусах Цельсия
  {DecimalSeparator:='.';///Ставим разделителем точку вместо запятой (если критично)
  }Form1.Edit1.Text := FormatFloat('0.0000 C"',f);///Вывод температуры
   end;
  end;
 end;