Portscanner in Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If Not (Key in ['0'..'9', '.', #8]) Then Begin
 Key:=#0;
 End;
end; //Hab ich nur eingebaut damit man in das Editfeld wo die IP reinsoll nur Zahlen amchen kann

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Clear;
tcpclient1.remotehost := edit1.text;
for i := spinedit1.Value to spinedit2.Value do //In den Spinedits werden der andfangsport und der endport festgelegt
begin
try
TcpClient1.RemotePort := inttostr(i); //hier wird der port an den tcp socket übergeben
TcpClient1.open; //Hier soll versucht werden den port zu öffnen
TcpClient1.Close; // wenn er offen ist wird jetzt wieder geschlossen
Memo1.Lines.Add('Port ' + inttostr(i) + ' ist serverseitig geöffnet'); //eintrag in ein memofeld 
application.ProcessMessages;
except
application.ProcessMessages;
memo1.Lines.add('Port ' + inttostr(i) + ' ist serverseitig geschlossen'); //hier sollen die eingetragen werden bei denen der port zu ist
end;
end;

end.