TcpClient hängt sich mit dbeintrag auf.

[Zack]

Hi
Ich möchte ein Tool basteln, welches Ein Befehl an verschiedene IPs sendet.
Es besitzt eine Datenbank in der Ips und dazugehörige Ports enthalten sind. Nun greift sich das Program eine IP sendet an diese einen Befehl, springt zur nechsten IP und wiederholt das ganze immerwieder. Dies mit Hilfe eines Timers Intervall 1sec.

Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Tcpclient1.Close;

TcpClient1.RemoteHost := table1.FieldByName('IPS').asstring;
TcpClient1.RemotePort := Table1.Fieldbyname('PORTS').asstring;


Table1.Next;

Tcpclient1.Open;
Tcpclient1.Sendln('Get http://blabla.de');

end;

Aber sobald "Tcpclient1.Open;" schmiert das Programm ab. Ich kann mir nicht recht erklären warum. Es müsste ja an meinen Datenbank-einträgen liegen. Eine Paradox7 Datenbank mit 2Fields. Einmal für die Ips "Type A" mit "Size 15" und einmal "Typ N" für die Ports. Ich bin Rahtlos warum das Teil immer abschmiert. Vll kann mir ja einer von euch weiterhelfen.
Gruss Zack