ClientSocket一次如何发两条消息到服务器上去

Question

各位大侠；
  请帮我 把这个问题解决，我等着急用，明天就要交任务了，谢谢！！
1.从客户端这边发数据到服务器那边，每一次发两条消息，每条发的信息都要换行，我不知道什么样写，如何实现，你看下我写的代码  flag_s:integer;procedure TForm1.FormCreate(Sender: TObject);
begin
  flag_s:=1;
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;procedure TForm1.fs;      一种写法不能实现，只能发送到一条消息，下面的那条发过去的只有空的，
begin
  ClientSocket.Open;
  ClientSocket.Socket.SendText(trim(edit1.text));     //一条消息
  ClientSocket.close;
  ClientSocket.Open;  
  ClientSocket.Socket.SendText(trim(edit1.text));    //另一条消息
  ClientSocket.close; 
  flag_s:=Form1.flag_s+1;
end;procedure TForm1.fs;     //二种写法能发出去，但是没有换行，
begin
  ClientSocket.Open;
  ClientSocket.Socket.SendText(trim(edit1.text));     //一条消息
  ClientSocket.Socket.SendText(trim(edit1.text));    //另一条消息
  ClientSocket.close;  
  flag_s:=Form1.flag_s+1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);  
begin
  if flag_s < 5 then
    fs
  else
    Timer1.Enabled := False;
end;procedure TForm1.ClientSocketRead(Sender: TObject; Socket:TCustomWinSocket);
var
  strread:string;
begin
  strread:=Socket.ReceiveText;
  Memo1.Lines.Add('服务器返回消息:'+strread);
  flag_s:=1;
end;
end.

Answer 1

无语,强人..  ClientSocket.Socket.SendText(trim(edit1.text) + #13#10);     //一条消息
  ClientSocket.Socket.SendText(trim(edit1.text) + #13#10);    //另一条消息

Answer 2

各位大虾,我想问以下关于客户端发送数据到服务器,
1）一次发两条数据,先发edit1.text,然后 在发edit2.text,我这样写可以吗?，
2）每次3秒发一次，收到信息就不发，最多发5次，如果5次没有收到证明网络有问题，同时收到我这里有一个返回信息，如何判断我这边能接受到他们信息，  flag_s:integer;procedure TForm1.FormCreate(Sender: TObject);
begin
  flag_s:=1;
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
endprocedure TForm1.fs;     //二种写法能发出去，但是没有换行，
begin
  ClientSocket.Open;
 ClientSocket.Socket.SendText(trim(edit1.text) + #13#10);      //一条消息
ClientSocket.Socket.SendText(trim(edit2.text) + #13#10);     //另一条消息
  ClientSocket.close;  
  flag_s:=Form1.flag_s+1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);  
begin
  if flag_s < 5 then
    fs
  else
    Timer1.Enabled := False;
end;procedure TForm1.ClientSocketRead(Sender: TObject; Socket:TCustomWinSocket);
var
  strread:string;
begin
  strread:=Socket.ReceiveText;
  Memo1.Lines.Add('服务器返回消息:'+strread);
  flag_s:=1;
end;
end.