[deathor]

Если кому-нить будет нужно...

Код:

//----Put---
procedure TForm1.PutClick(Sender: TObject);
var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='127.0.0.1';
      ftp.Port:=21;
      ftp.Username:='anonymous';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/99.Income');
      ftp.Put('c:\file.txt','file.txt',false);
      ShowMessage('Отправлено');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Хрен! :(');
  end;
end;
//----Put---

//----Get---
procedure TForm1.GetClick(Sender: TObject);
var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='127.0.0.1';
      ftp.Port:=21;
      ftp.Username:='anonymous';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/99.Income');
      ftp.Get('file.txt','c:\file.txt',true);
      ShowMessage('Принят');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Хрен! :(');
  end;
end;
//----Get---

Moderatorial: пользуемся тегами!!!