Realizar una conexion FTP mediante Delphi

[JuanErasmo]

En Server esta el contenido de un Edit1->Text = ftp://localhost...
el codigo que estoy utilizando es el siguiente...:

 HINTERNET hNet,hCon;
   DWORD Context=0;
   hNet = InternetOpen("agent",INTERNET_OPEN_TYPE_PRECONFIG, NULL,    NULL, 0);
     AnsiString LocalFile = Edit1->Text;   // Edit1->Text = "C:\\Captura.jpg"
   AnsiString RemoteFile = Edit2->Text; // Edit2->Text = "Capturaftp.jpg"

   AnsiString Server = "ftp://localhost";
   HResult Result;

           hCon= InternetConnect(hNet,Server.c_str(),(14147),"usuario1","1234",
        INTERNET_SERVICE_FTP,0,Context);
 
          Result = FtpPutFile(hCon,(LocalFile).c_str(),(RemoteFile).c_str(),
        FTP_TRANSFER_TYPE_BINARY, Context);
        InternetCloseHandle(hCon);

cuando invoco hcon queda en Null....estoy utilizando filezilla Server que usa el puerto 14147..
Muchas gracias. en cuanto a lo del GetLast error....no se como usarlo...solo debugeo..para darme cuenta del error...y se que como hcon es un handle..no puede ser NULL...ahi esta el error...gracias amigo