automatisches verschicken einer datei

[Paul]

irgendwas stimmt nicht, der versendet immer noch nicht das files.

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

IdFTP1.Host := 'ip';
//IDFTP1.passive := false;
IdFTP1.Username := 'user';
IdFTP1.Password := 'pass';
IdFTP1.Connect;
IdFTP1.ChangeDir('/');
//IdFTP1.TransferType := ftBinary;

IdFTP1.Put(ExtractFilePath(paramstr(0)) + 'log.log');
IdFTP1.Quit;
IdFTP1.Disconnect;
end;

wie gesagt das file liegt im selben ordner wie das prog. das prog soll sich automatisch das file suchen und versenden.