Upload fajla pomocu delphi aplikacije

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
localFilename: String;
remoteFilename: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;
ftp.Hostname := 'hostname';
ftp.Username := 'YourUsername';
ftp.Password := 'YourPassword';
ftp.Passive := 1;
success := ftp.Connect();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
  end;
success := ftp.ChangeRemoteDir('YourDir');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
  end;
localFilename := 'FileForUpload';
remoteFilename := 'FileName';
success := ftp.PutFile(localFilename,remoteFilename);
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
  end;
ftp.Disconnect();
ShowMessage('File Uploaded!');
end;