1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function Now3: String;
var
  SystemTime: TSystemTime;
  td:TDateTime;
  tmpFloat,tmp:Extended;
const dday:Extended=60*60*24;
begin
  GetLocalTime(SystemTime);
  Result := Inttostr(systemTime.wHour)+':'+inttostr(systemtime.wMinute)+':'+inttostr(systemtime.wSecond); //ist korrekt
  with SystemTime do begin
    Ausgabe(inttostr(wHour)+':'+inttostr(wMinute)+':'+inttostr(wSecond),cOK); //korrekt
    td:=EncodeDate(wYear, wMonth, wDay);
    td:=td+wHour /24;
    td:=td+wMinute/(24*60);
    tmpFloat:=wSecond/(24*60*60);
    tmp:=td;
    Ausgabe(FloatToStr(tmp),cOK); //stimmt immer noch (Hier ist Pos 1)
    tmp:=tmp*dday;
    Ausgabe(FloatToStr(tmp)+' aaa '+inttostr(wSecond),cOK); //ab hier
    td:=tmp+10; //eindeutig oder?
    tmp:=tmp+wSecond;
    Ausgabe(FloatToStr(tmp),cOK); //aber tmp ist gleich
    tmp:=tmp/dday;
    td:=td/dday;
    Ausgabe(FloatToStr(td)+' '+Floattostr(tmp),cOK); //gleicher wert wie an pos 1
  end;
    Result:=DateTimeToStr(td);
end;					

1:
2:

172DCEF3                     DB6D D0                     FLD TBYTE PTR [EBP-30]
172DCEF6                     D805 04D02D17               FADD DWORD PTR [172DD004] //der inhalt ist 10.0000 aber es passiert gar nix (ollydbg)					

1:

    td:=tmp+10;					

1:
2:

m:=s div 60;
s:=s mod 60;