Lazarus - Synapse - Connect funzt nicht

[LuCSteR]

So jetzt hab ich kein Bock mehr. Wird morgen weiter gemacht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Create TFTPClient
  FTPClient := TFTPSend.Create;
  Log.Lines.Add('TFTPClient created');

  // Set IP/Port/Username/Password
  FTPClient.FWHost:= IPEdit.Text;
  Log.Lines.Add('TargetSystem is ' + FTPClient.FWHost);
  FTPClient.FWPort:= PortEdit.Text;
  Log.Lines.Add('TargetPort is ' + FTPClient.FWPort);
  FTPClient.FWUsername:= UserEdit.Text;
  Log.Lines.Add('UserName is ' + FTPClient.FWUsername);
  FTPClient.FWPassword:= PassEdit.Text;
  Log.Lines.Add('Password is ' + FTPClient.FWPassword);
  FTPClient.FWMode:=1;
  
  // Connect
  if FTPClient.Login then Log.Lines.Add('Logged in!');
  
  // Delete
  if DeleteFile('/d:/test.txt') then Log.Lines.Add('Deleted!!');

  // Logout
  if FTPClient.Logout then Log.Lines.Add('Logged out!');
  
  // Free TFTPClient
  FTPClient.Free;
  Log.Lines.Add('TFTPClient destroyed');
end;

Login und demzufolge der Delete Befehl klappen immer noch nicht. Die Anwendung startet aber mehr auch nicht.
(Wenn ich nur Login bzw. Logout schreibe dann findet der compiler die function komischerweise nicht)
Ich finde auch nirgends eine Klassifizierung der FWMode - Möglichkeiten, außer das bei -1 die Login-Sequenz manuell gemacht werden kann. Blos wie das nun wieder geht, dazu gibts genauso viele Informationen wie zu FWMode. Nömlich keine

Bis morgen