datei mit datum als name

[any_key]

aloah
ich hab eben versucht per idftp eine textdatei auf einen ftp server hochzuladen
soweit hat das auch gut geklappt
allerdings will ich die einzelnen datein unterscheiden können die ich hochlade
also hab ich mir überlegt das die datein auf dem server ja einfach als namen das aktuelle datum bekommen könnten
dehalb hab ich das dann mal ausprobiert was dann ungefähr so aussah:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var datum:string;
begin
datum:= FormatDateTime('d. mmmm yyyy  hh:mm:ss', Now);
showmessage(datum);
try
IDftp1.Username := '********';
    IDftp1.Password := '*******';
    IDftp1.Host := '**********';
    IDftp1.Connect;
    IdFTP1.Put('c:\test.txt', ExtractFilename(datum + '.txt'));
    except
    label1.caption:='muhhh';
end;
end;

leider heißt die datei auf dem server dann nachher nicht z.b. 27. August 2006 16:30:24 sondern einfach nur 24 (also nach der sekundenzahl)
kann mir da wohl jemand behilflich sein?