Szervusz!
unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

IdFTP, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

IdFTP1: TIdFTP;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

CheckBox1: TCheckBox;

Edit4: TEdit;

Button2: TButton;

OpenDialog1: TOpenDialog;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin try

idftp1.Host:=edit1.Text;

idftp1.Username:=edit2.Text;

idftp1.Password:=edit3.Text;

idftp1.Passive:=checkbox1.Checked;

idftp1.Connect(true,-1);

if FileExists(edit4.Text) then

idftp1.Put(edit4.Text,edit4.Text,true)

else showmessage('Nincs meg a fájl!');

except

showmessage('Nincs kapcsolat!');

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if opendialog1.Execute then

edit4.Text:=opendialog1.FileName;

end;

end.

Üdv.: Totó