Ja. Bruge komponenten NMFTP.
if NMFTP1.Connected then
NMFTP1.Disconnect
else
begin
Memo1.Lines.Add('Skaber forbindelse til '+edit1.text+'....');
NMFTP1.Host := Edit1.Text;
NMFTP1.UserID := Edit2.Text;
NMFTP1.Password := Edit3.Text;
NMFTP1.Connect;
Memo1.Lines.Add('Der er skabt forbindelse til '+Edit1.text);
end;
//filerne uploades
//Uploader .exe filen
Memo1.Lines.Add('Uploader Quickgolf.exe....');
LocalFile := Sti+'\\Quickgolf.exe';
RemoteFile:='Quickgolf.exe';
NMFTP1.Mode(MODE_BYTE);
AssignFile(F, LocalFile);
Reset(F);
FSize := FileSize(F);
CloseFile(F);
NMFTP1.Allocate(FSize);
Gauge1.MaxValue:=FSize;
NMFTP1.Upload(LocalFile, RemoteFile);
Memo1.Lines.Add('Quickgolf.exe uploadet!!!');
sådan har jeg brugt den..
T dér