mit indy 10 tcpclient strings versenden

[gandime]

hi,
ich möchte via indy 10 tcpclient strings verschicken
hab da auch schon ein paar testes gemacht aber iwie bekomme ich immer fehlermeldungen beim server

client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:tstringlist;
begin
  sl:=tstringlist.Create;
  sl.add('a');
  sl.add('b');
  IdTCPClient1.Connect;
  IdTCPClient1.IOHandler.Write(sl);
  sl.Clear;
end;

server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  sl:tstringlist;
  s:string;
begin
  con:=true;
  sl:=tstringlist.Create;
  while (con=true) do
  begin
    try
      line:='';
      begin
        acontext.Connection.IOHandler.ReadStrings(sl);// hiernach kommt immer der fehler ka warum
        s:=sl[0];
      end;
    except
      con:=false;
    end;
  end;
end;

wo is der fehler?

mfg gandime