tcp-server/client strings übertragen

[the_seed]

hi, es ist zum verzweifeln ich komme einfach nicht auf den fehler :x
vielleicht kann mir hier jmd weiterhelfen....

ich habe einen idtcp server mit einer listbox in der die laufenden prozesse stehen und ein clienten der diese prozesse abrufen und wieder in einer lkistbox ausgeben soll.

Code:

[u]server:[/u]

var anzahl:integer;
    a  :string; 
begin
  
   a:=athread.connection.readln;
  if a='prozess' then begin
   try
   prozesse(ListBox1.items);   //prozesse ist die function...
   anzahl:=listbox1.count;
    athread.connection.writeln(inttostr(pro));
    for i:=1 to anzahl do    athread.connection.writeln(listbox1.items[i]);
   
    listbox1.clear;
   except showmessage('Fehler');
end;
end

 -------------------

[u]client:[/u]

var i:integer;
    a:string;
begin
   
   try
   listbox1.Clear;
   form1.idtcpclient1.writeln('prozess');
  a:=form1.idtcpclient1.readln;

 for i:=2 to strtoint(a) do          listbox1.Items.add(form1.idtcpclient1.readln);
  
 except showmessage('Fehler');
  end;

[edit] wenn ich connecte kann ich sie abrufen aber sobal ich disconnected hab und nochmal connecte funktioniert es nicht [/edit]