IdTCPClient - Daten von IdTCP Server Empfangen.

[shifter]

Unglaublich aber wahr,
ich kriege den sch.. nicht zu stande.

Problemm:

Cleint macht Connect bei Server, und geht auf Empfang und zwar so :

Delphi-Quellcode:

Type  
  TE  = Class(TTHread)  
    private  
    protected  
      Procedure Execute; override;  
    public  
      Constructor Create;  
  End;  

 
....  

 

 
Var  
T_CLI   : TIdTCPClient;  

 
...  

 
Procedure TE.Execute;  
Begin  
  Repeat  
      If T_CLI.Connected Then Form1.CLIENT_AUSWERTEN( T_CLI.Socket.ReadLn);  
  Until Terminated;  
End;  
Constructor TE.Create;  
Begin  
  Inherited Create(False);  
End;  

 
Procedure TForm1.CLIENT_AUSWERTEN( Txt : String);  
Begin  
  If Txt = '_OK_' Then  
    Memo1.Lines.Add('- Alles OK, kann Los gehen.')  
  Else  
    Memo1.Lines.Add('-NICHT GANZ OK');  
End;

Grob und ganzen so habe ich es versucht zu lösen.

Es funktioniert aber nicht !

Zur verfügung habe ich Delphi 2005 mit Indy 10.

Was mache ich falsch ?

Gruss
seba