String über Socket senden

[strom]

Habe doch noch ein Problem!

Wenn ich kurze Zeit später erneut was senden möchte,
kommt diese Fehlermeldung!

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
    var
  s: String;
begin
    try
       ClientSocket1.Open;
    s := String.Format(
     '<event>'#10'<address>%s</address>'#10'<message>%s</message>'#10'</event>',
     [Edit1.Text,Memo1.Text]);
    ClientSocket1.Socket.SendText(s);
    ClientSocket1.Close;
    Edit1.Clear;
    Memo1.Clear;
    finally
      ClientSocket1.Free;
    end;
end;