Zeit in Integerzahl umwandeln

[bluescreen25]

Hallo,

ich versuche eine TStringliste über einen Savedialog abzuspeichern.
Dabei soll er schon einen Dateinamen vorgeben.
Mein Versuche war das Datum und die Uhrzeit mit reinzupacken, da dies ja immer unterschiedlich ausfällt.

Delphi-Quellcode:

procedure Tmediaplayer_frm.fav_save_btnClick(Sender: TObject);
begin
  ProgrammPfad:=ExtractFileDir(ParamStr(0));
   Fav_savedialog.InitialDir := ProgrammPfad+'\Data';
   Fav_savedialog.FileName := 'fav_'+DateToStr(now)+'_';
   Fav_savedialog.Filter := 'fav(*.fav)|*.fav';

   if Fav_savedialog.Execute then
    PlayList.SaveToFile(Fav_savedialog.FileName);
end

Als ich dies mit TimeToStr(now) versuchte, klappte das nicht, da er versucht das ":" mit unter zu bekommen.

Meine Frage: Wie kann man die Zeit recht einfach wieder in eine Integerzahl zurückwandeln, oder
nur das Datum mit einer Nummerierung dahinter...?

Oder habt ihr bessere Vorschläge um einen eindeutigen Dateinamen vorzugeben ?