Hallo Jürgen,
probier's mal so:
Delphi-Quellcode:
procedure TFrm_Main.Set_my_global_Time_Variablen(FileName: string);
var
OldFileDateTime, NewFileDateTime: TDateTime;
TimeOffset: Double;
begin
OldFileDateTime := GetFileDate(FileName);
TimeOffset := Frac(TP_Datei_Offsettime.Time) + (SpEdt_Sekundenzaehler.Value / 86400);
NewFileDateTime := OldFileDateTime + TimeOffset;
. . . .
Eines der Probleme mit deinem Code könnte sein: Wenn die Uhrzeit z.B. 23:59 ist, und eine Stunde dazu kommt, dann muss auch der Tag erhöht werden. In diesem Fall wird das TimeOffset > 1 und somit funktionierts (ungetestet)