[LeonidPr]

Попробуй вместо TIME_PERIODIC использовать TIME_ONESHOT. И ещё, убей событие таймера в FnTimerCallBack. Для этого надо сохранить значение, возвращаемое функцией timeSetEvent - идентификатор таймера, а затем в FnTimerCallback после обработки вызови timeKillEvent для этого идентификатора (timeKillEvent(TimerID)).

[Mavlyudov]

LeonidPr, напиши кусок кода. мне не очень понятно

[LeonidPr]

У меня нормально работает следующий код.

var
Form1: TForm1;
TimerID:MMRESULT;
implementation

{$R *.DFM}

procedure TimeProc(uID,uMsg:UINT;dwUser,dw1,dw2:DWORD);stdcall;
begin
ShowMessage('Hello');
timeKillEvent(TimerID);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TimerID:=timeSetEvent(5000,5000,TimeProc,0,TIME_ONESHOT);
end;

[pva]

1. Вообще-то, если не нужно большой точности таймера, то функциями TimeXXX пльзоваться не рекомендуется. Они достаточно тяжёлые.
Отличие от SetTimer и GetTickCount в том, что в windows 9x они имеют разрешение ~18 мс. В windows NT и далее разрешение всех таймеров (кроме счётчика квантов, который 10 нс.) 1 мс. Поэтому, воспользуйтесь лучше классом TTimer (он использует SetTimer).

2. Чтобы окно появлялось сразу, сделайте UpdateWindow (сразу после Show)