Timer in einer Unit

[hathor]

@Sir Rufo:

Das stimmt nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
//hwndTimer - Werte bei mir:
//7187
//7186
//7185
end;