1:
2:
3:
4:
5:
6:

var
  Timer: TTimer;

Timer := TTimer.Create(NIL);

FreeAndNil(Timer);                    

1:

  OnTimer: procedure(Sender:TObject);                    

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

var  
  Timer: TTimer;  

 
  Timer := TTimer.Create(NIL);  
  Timer.OnTimer := DeineProcedure;  { Deine Procedure muss die erforderten Parameter
(Sender: tObject) haben. Bei der zuweisung brauchst du diese aber nicht anzugeben. In der
Procedure kann dann stehen was will, also abc() und def(). }
 
  FreeAndNil(Timer);                    

1:
2:
3:
4:
5:
6:

TprcTimer= procedure(???Was Du glaubst, zu brauchen);
record MyTime =
        MomT,
        StartT : integer;
        prcTime : TprocTime;
      end;                    

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

procedure ontimer(..)
var 
  i : integer;
begin
  for i := 0 to High[aTimer] do
    with aTimer[i] do
      begin
      MomT := MomT-timer.interval;
      If MomT< 0 then 
         begin
         MomT := MomT+StartT;//MomT := StartT;
        prcTime;
        end;
      end;
end;                    

1:
2:
3:

  Timer.OnTimer := DeineProcedure;  { Deine Procedure muss die erforderten Parameter
(Sender: tObject) haben. Bei der zuweisung brauchst du diese aber nicht anzugeben. In der
Procedure kann dann stehen was will, also abc() und def(). }                    

1:
2:
3:

procedure showit(x: integer; Sender: TObject);
//und dann
Timerarray[x].OnTimer := showit(x,Button1);                    

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

const TimerID: Integer = 1; // muss größer als Null sein 
 
procedure OnTimer; 
begin 
  killtimer(application.handle, TimerID); 
  beep; 
  showmessage('Zeit ist abgelaufen'); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var zeit: cardinal; 
begin 
  zeit := 1000; // Millisekunden 
  settimer(application.handle, TimerID, zeit, @OnTimer); 
end;                    

1:
2:
3:
4:
5:
6:

type
  MyTime = record
    MomT,
    StartT : integer;
    prcTime : TprocTime;
  end;                    

1:

DrawTimer.OnTimer := DrawTimerTimer;                    

1:

procedure DrawTimerTimer(Sender: TObject);                    

1:
2:
3:
4:

procedure DrawTimerTimer(Sender: TObject);
begin
  Draw;
end;                    

1:
2:
3:

  TDummyClass = class
    procedure DrawTimerTimer(Sender: TObject);
  end;                    

1:

DrawTimer.OnTimer := DrawTimerTimer;                    

1:
2:

procedure DummyClass.DrawTimerTimer(Sender: TObject);
begin