{
 The following function shows how to connect to a ftp server
 and download a file.
 It uses the functions from wininet.dll.
 You need a ProgressBar to show the progress and a Label to show progress informations.
}
uses
 WinInet, ComCtrls;
function FtpDownloadFile(strHost, strUser, strPwd: string;
 Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean;
 function FmtFileSize(Size: Integer): string;
 begin
  if Size >= $F4240 then
  Result := Format('%.2f', [Size / $F4240]) + ' Mb'
  else
  if Size < 1000 then
  Result := IntToStr(Size) + ' bytes'
  else
  Result := Format('%.2f', [Size / 1000]) + ' Kb';
 end;
const
 READ_BUFFERSIZE = 4096; // or 256, 512, ...
var
 hNet, hFTP, hFile: HINTERNET;
 buffer: array[0..READ_BUFFERSIZE - 1] of Char;
 bufsize, dwBytesRead, fileSize: DWORD;
 sRec: TWin32FindData;
 strStatus: string;
 LocalFile: file;
 bSuccess: Boolean;
begin
 Result := False;
 { Open an internet session }
 hNet := InternetOpen('Program_Name', // Agent
  INTERNET_OPEN_TYPE_PRECONFIG, // AccessType
  nil, // ProxyName
  nil, // ProxyBypass
  0); // or INTERNET_FLAG_ASYNC / INTERNET_FLAG_OFFLINE
 {
  Agent contains the name of the application or
  entity calling the Internet functions
 }

 { See if connection handle is valid }
 if hNet = nil then
 begin
  ShowMessage('Unable to get access to WinInet.Dll');
  Exit;
 end;
 { Connect to the FTP Server }
 hFTP := InternetConnect(hNet, // Handle from InternetOpen
  PChar(strHost), // FTP server
  port, // (INTERNET_DEFAULT_FTP_PORT),
  PChar(StrUser), // username
  PChar(strPwd), // password
  INTERNET_SERVICE_FTP, // FTP, HTTP, or Gopher?
  0, // flag: 0 or INTERNET_FLAG_PASSIVE
  0);// User defined number for callback
 if hFTP = nil then
 begin
  InternetCloseHandle(hNet);
  ShowMessage(Format('Host "%s" is not available',[strHost]));
  Exit;
 end;
 { Change directory }
 bSuccess := FtpSetCurrentDirectory(hFTP, PChar(ftpDir));
 if not bSuccess then
 begin
  InternetCloseHandle(hFTP);
  InternetCloseHandle(hNet);
  ShowMessage(Format('Cannot set directory to %s.',[ftpDir]));
  Exit;
 end;
 { Read size of file }
 if FtpFindFirstFile(hFTP, PChar(ftpFile), sRec, 0, 0) <> nil then
 begin
  fileSize := sRec.nFileSizeLow;
  // fileLastWritetime := sRec.lastWriteTime
 end else
 begin
  InternetCloseHandle(hFTP);
  InternetCloseHandle(hNet);
  ShowMessage(Format('Cannot find file ',[ftpFile]));
  Exit;
 end;
 { Open the file }
 hFile := FtpOpenFile(hFTP, // Handle to the ftp session
  PChar(ftpFile), // filename
  GENERIC_READ, // dwAccess
  FTP_TRANSFER_TYPE_BINARY, // dwFlags
  0); // This is the context used for callbacks.
 if hFile = nil then
 begin
  InternetCloseHandle(hFTP);
  InternetCloseHandle(hNet);
  Exit;
 end;
 { Create a new local file }
 AssignFile(LocalFile, TargetFile);
 {$i-}
 Rewrite(LocalFile, 1);
 {$i+}
 if IOResult <> 0 then
 begin
  InternetCloseHandle(hFile);
  InternetCloseHandle(hFTP);
  InternetCloseHandle(hNet);
  Exit;
 end;
 dwBytesRead := 0;
 bufsize := READ_BUFFERSIZE;
 while (bufsize > 0) do
 begin
  Application.ProcessMessages;
  if not InternetReadFile(hFile,
  @buffer, // address of a buffer that receives the data
  READ_BUFFERSIZE, // number of bytes to read from the file
  bufsize) then Break; // receives the actual number of bytes read
  if (bufsize > 0) and (bufsize <= READ_BUFFERSIZE) then
  BlockWrite(LocalFile, buffer, bufsize);
  dwBytesRead := dwBytesRead + bufsize;
  { Show Progress }
  ProgressBar.Position := Round(dwBytesRead * 100 / fileSize);
  Form1.Label1.Caption := Format('%s of %s / %d %%',[FmtFileSize(dwBytesRead),FmtFileSize(fileSize) ,ProgressBar.Position]);
 end;
 CloseFile(LocalFile);
 InternetCloseHandle(hFile);
 InternetCloseHandle(hFTP);
 InternetCloseHandle(hNet);
 Result := True;
end;