1:

PMethodPointer = ^TMethodPointer;                    

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

program Project2;
uses
   Windows, Messages, SysUtils, Variants, Classes, Controls,forms,
  Dialogs,ExtCtrls;

var mytimer:ttimer;
begin
mytimer:=ttimer.Create(application);

//hier jetzt Onmytimer hin oder wie funzt das?



end.                    

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

program Project2;

uses Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
     Dialogs, ExtCtrls;

var myTimer: TTimer;

procedure myTimerOnTimer(Sender: TObject);
begin
 // Hier der Code der im OnTimer - Event ausgeführt werden soll.
end;

begin
 myTimer := TTimer.Create(Application);
 myTimer.OnTimer := myTimerOnTimer;
end.