Ich schlage spontan mal den
API-Befehl
GetSystemTime vor, der eine "TSystemTime"-Variable als Parameter erwartet. Der Befehl liefert die UTC-Zeit, ganz ohne Subtraktionen.
Und die "TSystemTime"-Variable bietet bereits Zugriff auf Stunde, Minute, Sekunde, ...
Code:
var
st : TSystemTime;
begin
GetSystemTime(st);
ShowMessage(Format('%d:%d',[st.wHour,st.wMinute]));
end;
(is´n blödes Beispiel, geht aber.)