[Dzman]

Мне нужна процедура, которая будет выполнять следующие шаги:
1.настроит соединение
2.отправит 2 сообщение
3.разорвет соединение

Код:

procedure OnOff (ip,pass,onORoff: String;CS: TClientSocket);
begin
     CS.Port:= 2424;
     CS.Host:= ip;
     CS.Active:=True;
//не успевает соединиться, как программа уже кидает сообщение, следовательно сообщение не доходит.
     CS.Socket.SendText('$KE,PSW,SET,'+ pass +#13+#10);
     if(onORoff = 'on')
     then begin
     CS.Socket.SendText('$KE,WR,1,0'+#13+#10);
     end
     else begin
     CS.Socket.SendText('$KE,WR,1,1'+#13+#10);
     end;
     CS.Active:=False;
end;

как решить проблему?

думал решить проблему добавив: sleep(500); но программа перестает вообще что-то делать.