SFTP

[Samufi]

Hallo,
das Programm, an dem ich gerade herumschreibe baut eine Verbindung zu einem FTP-Server auf. Alles funktioniert wunderbar. Nun möchte ich aber gerne auf einen anderen Server, der SFTP voraussetzt, umsteigen. Ich muss zugeben nicht allzuviel über die Materie zu wissen, ich habe den betreffenden Code kopiert. Ich denke, dass der Knackpunkt in dieser Prozedur liegt:

Delphi-Quellcode:

procedure TInetFTP.Connect(Passive:Boolean);
var
   dwFlags : Cardinal;
begin
   inherited Connect;

   dwFlags := 0;
   if Passive then
      dwFlags := dwFlags or INTERNET_FLAG_PASSIVE;

     FHSession := InternetConnect(FHInet, PChar(Server), INTERNET_DEFAULT_FTP_PORT, PChar(User), PChar(Password), INTERNET_SERVICE_FTP, dwFlags, 0);
dwFlags, 0);

   if FHSession = nil then
   begin
    showmessage('Stellen Sie bitte eine Verbindung mit dem Internet her und starten Sie das Programm erneut!');
     Form1.timer2.enabled:=true;

   end;
end;

Soweit ich weiß, muss man, um SFTP zu verwenden den Port auf 22 umstellen. Zum einen gelingt mir das hier einfach nicht, zum anderen ist es wahrscheinlich nicht so einfach! Kann mir jemand sagen, wie ich mich mit einem SFTP-Server (mit SSL) verbinden kann? (Bzw: geht das überhaupt auf diese Weise?)
Vielen Dank schon mal im Voraus!