indy tcp connection 1.uppt was 2. macht nichts warum?

[gandime]

hi,
ich hab malwieder ein problem und zwar:

ich eine prog mit 2 tcp clienten
der erste schickt dateien von pc a nach pc b
der zweite sollte wärend dessen fragen ob es neue daten gibt

und da is das prob:

wenn ich mit dem mit dem ersten tcp client daten verschicke macht der zweite nichts mehr warum?

1. tcp client

Delphi-Quellcode:

procedure TForm1.ti_dlTimer(Sender: TObject);
var
  FStream:tfilestream;
begin
    FStream := TFileStream.Create('la.rar', fmOpenRead);
    IdTCPClient_filemanager.Connect;
    try
      IdTCPClient_filemanager.IOHandler.Write(Fstream,0,true);
    finally
      IdTCPClient_filemanager.Disconnect;
    end;
    FreeAndNil(FStream);
    ti_dl.enabled:=false;
end;

2.tcp client

Delphi-Quellcode:

procedure TForm1.ti_askTimer(Sender: TObject);
begin
    IdTCPClient_respnse.IOHandler.writeln('was_neues?');
    line:=IdTCPClient_respnse.IOHandler.ReadLn;
    if (line='ja') and (ti_dl.enabled=false) then
    begin
      ti_dl.enabled:=true;
      IdTCPClient_respnse.IOHandler.writeln('ok'); 
    end
    else
    begin
      IdTCPClient_respnse.IOHandler.writeln('besetzt');  
    end;   
end;