1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.TCPServerInput(Connection: TSimpleTCPConnection;
  Stream: TStream; var DisposeStream: Boolean);
var sl: TStringList;
begin
  showmessage('kam was an');     //<-- Meldung kommt, wenn ich frame5.listbox1.items.add('kam was an');  
                                 //eingib, wird nix angezeigt
  sl:= TStringList.Create;
  sl.BeginUpdate;                 //anfangs hatte ich alles ohne BeginUpdate und EndUpdate
  try
    sl.LoadFromStream(stream);
  finally
    sl.EndUpdate;
    sl.Free;
  end;
  frame5.ListBox1.Items.BeginUpdate;
  frame5.ListBox1.Items.Assign(sl);
  frame5.ListBox1.Items.EndUpdate;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  sl:= TStringList.Create;
  sl.BeginUpdate;
  try
    sl.LoadFromStream(stream);
  finally
    sl.EndUpdate;
    frame5.ListBox1.Items.BeginUpdate;
    frame5.ListBox1.Items.Assign(sl);
    frame5.ListBox1.Items.EndUpdate;
  end;
  sl.Free;