unit Unit1;
         
interface
         
uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Menus, IdBaseComponent, IdComponent, IdTCPConnection,
      IdTCPClient, IdFTP, ExtCtrls, ComCtrls, ColorGrd, Grids, Outline,
      DirOutln;
         
         
var
      Form1: TForm1;
         
implementation
         
{$R *.dfm}
         
         
procedure TForm1.Button2Click(Sender: TObject);
begin
idFTP1.Host:='site.local'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='root';
idFTP1.Password:='1111';
idFTP1.Connect;
IdFTP1.Put('c:\test.txt','test.txt' ,true); //в существующий файл 'test.txt на сервере добавит запись из нового оправляемого фала
//IdFTP1.Put('c:\test.txt','test.txt' ,false); а если так то заменит существующий файл на новый
idFTP1.Disconnect;
end;
         
procedure TForm1.IdFTP1Connected(Sender: TObject);
begin
ShowMessage('Соединение успешно!');
end;
         
procedure TForm1.IdFTP1Disconnected(Sender: TObject);
begin
ShowMessage('Соединение потеряно!');
end;
         
end.