Client/Server- Socket Sendeprobleme

[Carlo91]

Hi,
also bei mir geht das!
hab hier noch mal den Code:

Delphi-Quellcode:

...
var
  FrmMain: TFrmMain;
  List: TStringList;

implementation

{$R *.dfm}

// Client:
// ##################################################################################
procedure TFrmMain.Button1Click(Sender: TObject);
begin
  if Client.Active = False then
  begin
    Client.Host :='127.0.0.1';  // Client.Host :='localhost';
    Client.Port :=10024;
    Client.Open;  // Client.Active :=True;
    Button1.Caption :='Disconnect';
  end
  else
  begin
    Client.Close; // Client.Active :=False;
    Button1.Caption :='Connect';
  end;
end;

procedure TFrmMain.Button2Click(Sender: TObject);
begin
  if Client.Active = True then Client.Socket.SendText(Edit1.Text);
end;
// ##################################################################################

// Server:
// ##################################################################################
procedure TFrmMain.FormCreate(Sender: TObject);
begin
  List :=TStringList.Create;
  Server.Port :=10024;
  Server.Open;  // Server.Active :=True;
  List.Append(FormatDateTime('dd.mm.yyyy-hh:mm:ss', Now)+' - Server gestartet');
  MemMain.Lines:=List;
  List.SaveToFile('mcserver.log');
end;

procedure TFrmMain.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  List.Insert(0, FormatDateTime('dd.mm.yyyy-hh:mm:ss', Now)+' - Client verbunden');
  MemMain.Lines :=List;
  List.SaveToFile('mcserver.log');
end;

procedure TFrmMain.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  MemMain.Lines.Insert(0, Socket.ReceiveText);
end;
// ##################################################################################

end.

MfG Carlo