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

function schleife(a: integer): integer;
begin
  result := 0;
  while true {bedingung bis ende} do
  begin
    //mach was
    sleep(60*1000*30); //30 minuten warten
  end;
end;


var tid: cardinal;
BeginThread(nil,0,@schleife,nil,0,tid);					

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:

Type
  TTimerThread = Class (TThread)
  Private
    fSleepInterval,
    fInterval : Integer;
    fEvent : TNotifyEvent;
    Procedure DoFireEvent;
  Protected
    Procedure Execute; Override;
  Public
    Constructor Create (aSleepInterval : Integer);
    Property Interval : Integer Read fInterval Write SetInterval;
    Property TimerEvent : TNotifyEvent Read fEvent Write fEvent;
  End;

Constructor TTimerThread.Create (aSleepInterval : Integer);
Begin
  inherited Create (True);
  fSleepInterval := aSleepInterval;
  fInterval :=  300000; // irgend einen Anfangswert, hier 30 sec
End;

Procedure TTimerThread.DoFireEvent;
Begin
  If assigned (fEvent) Then fEvent (Self)
End;

Procedure TTimerThread.Execute;
Var
  iWaiting : Integer;

Begin
  iWaiting := 0;
  While not Terminated do Begin
    Sleep (fSleepInterval);
    inc (iWaiting, fSleepInterval);
    If iWaiting>=fSleepInterval Then Begin
      Synchronize (DoFireEvent);
      iWaiting := 0;
    End;
  End;
End;					

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

Var
  timerThread : TTimerThread;

Begin
  timerThread := TTimerThread.Create (1000); // 1x pro Sekunde nachschauen
  timerThread.Interval := 30*60*1000; // Alle 30 min was machen
  timerThread.TimerEvent := MyActionProc; // und zwar das hier
  timerThread.Resume;
End;