1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var da      : boolean;
    i,temp  : Integer;
    SL      : tStringlist;
begin
da := false; //Variable zum überprüfen ob mit der Person schon geschrieben wird
temp := 0;
sl := tstringlist.create;
for I := 0 to stringgrid3.RowCount - 1 do //in SG3 stehen alle mit denen ich Schreibe
  begin
   if stringgrid3.Cells[0,i] = socket.Remoteaddress then
    begin
      da := true;
      temp := StrToInt(stringgrid3.cells[1,i]); //SG3 2.spalte Formlist index
    end;
  end;
    if da = true then
     begin
       TForm11( FormList[ temp ] ).Memo1.Lines.Add( Socket.ReceiveText ); //Das funktioniert ohne probleme text kommt wunderbar an

     end
     else
     begin
       //Erstes Erzeugen Chatfenster
       sl.Delimiter := ':';
       sl.DelimitedText := socket.ReceiveText; // Erforderlich um Absender zu Ermitteln
       formlist.add(Tform11.Create(application)); // Chatfenster erzeugen
       stringgrid3.Cells[0,stringgrid3.RowCount-1] := socket.Remoteaddress;
       TForm11( FormList[formlist.Count-1] ).clientsocket1.Host := socket.RemoteHost;
       TForm11( FormList[ formlist.count-1 ] ).clientsocket1.Active := true;
       stringgrid3.Cells[1,stringgrid3.RowCount-1] := IntToStr(formlist.Count-1);
       stringgrid3.RowCount := stringgrid3.RowCount +1;
       TForm11( FormList[ formlist.count-1 ] ).caption := 'Chat mit ' + sl[0];
       TForm11( FormList[ formlist.count-1 ] ).index := formlist.count -1;
       TForm11( FormList[ formlist.count-1 ] ).show;
       TForm11( FormList[ formlist.count-1 ] ).Memo1.Lines.Add( Socket.ReceiveText );

  //Hier ist der Fehler er postet es nicht in das Memo, obwohl Socket.receivetext nicht leer ist

     end;
  end;
end;
sl.free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

//Abschicken der Nachricht
procedure TForm11.Button1Click(Sender: TObject);
begin
if (ClientSocket1.Active=true) and (Edit1.Text<>'') then
ClientSocket1.Socket.SendText(form1.edit3.text+': '+Edit1.Text);
memo1.Lines.Add(form1.edit3.text + ': ' + edit1.text);
Edit1.Text:='';
end;

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.Destroy;
end;

//Damit Fenster neu aufgeht nachdem geschlossen und ich wieder angeschrieben werde
procedure TForm11.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
for I := 0 to form1.StringGrid3.RowCount - 1 do
begin
  if inttoStr(index) = (form1.stringgrid3.Cells[1,i]) then
  begin
    griddeleterow(form1.stringgrid3,i);
  end;
end;