ارسال نص بين client و server

[S.FATEH]

السلام عليكم
في client

PHP كود :

ClientSocket1.Socket.SendText(edit1.text+'|'+edit2.Text) ; 


في server

PHP كود :

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
buf:string;
begin
 Buf:=socket.ReceiveText;
 Edit1.Text:=Copy(buf,1,pos('|',buf)-1);
 Edit2.Text:=Copy(buf,pos('|',buf)+1,length(buf));
end; 


بالتوفيق