1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Timer1Timer(Sender: TObject);
  var zufall: Integer;
begin
  zufall := random(100);
  writeln('start '+IntToStr(zufall));
  showmessage('Unterbrechung');
  writeln ('fertig '+IntToStr(zufall));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:real; i,zufall: Integer;
begin
   zufall := random(100);
   listbox1.items.add('start '+IntToStr(zufall));
   x:=pi/2;
   y:=0;
   for i:=1 to 10000000 do begin
     y:=sin(x)+cos(x);
     x:=y;
   end;  
   listbox1.items.add('fertig '+IntToStr(zufall));
   if listbox1.items.count>10 then begin
     timer1.enabled:=false;
     listbox1.items.add(inttostr(gettickcount-zeit));
     end;
end;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TTimer.WndProc(var Msg: TMessage);
begin
  with Msg do
    if Msg = WM_TIMER then
      try
        Timer;
      except
        Application.HandleException(Self);
      end
    else
      Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
end;

procedure TTimer.UpdateTimer;
begin
  KillTimer(FWindowHandle, 1);
  if (FInterval <> 0) and FEnabled and Assigned(FOnTimer) then
    if SetTimer(FWindowHandle, 1, FInterval, nil) = 0 then
      raise EOutOfResources.Create(SNoTimers);
end;

procedure TTimer.SetEnabled(Value: Boolean);
begin
  if Value <> FEnabled then
  begin
    FEnabled := Value;
    UpdateTimer;
  end;
end;

procedure TTimer.SetInterval(Value: Cardinal);
begin
  if Value <> FInterval then
  begin
    FInterval := Value;
    UpdateTimer;
  end;
end;

procedure TTimer.SetOnTimer(Value: TNotifyEvent);
begin
  FOnTimer := Value;
  UpdateTimer;
end;

procedure TTimer.Timer;
begin
  if Assigned(FOnTimer) then FOnTimer(Self);
end;