TTimer 2 Aktivieren

[Natcree]

danke für euer bemühen.

momentan sieht mein Code noch so aus

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
delay(2200, Application);
timer2.Enabled:=true;
delay(4800, Application);
timer3.enabled:=true;
delay(4500, Application);
timer4.Enabled:=true;
delay(4500, Application);
timer5.Enabled:=true;
end;

die Ersten 4 TImer werden ausgeführt ab dem 5. haengt er und es brauch bald 30 sekunden bevor das letzte Timer.event gestartet wird. Könnte das ein speicher leck sein??

dieser Code wird im timer5.event ausgeführt

Delphi-Quellcode:

procedure TForm2.Timer5Timer(Sender: TObject);
begin
    e:='Geburtsdatum:'+'  '+Dbedit9.text;
    inc(m);
    if m > length(e) then
    begin
    timer5.enabled:=false;
    exit;
    end;
    Canvas.Font.Name := 'CLARENCE'; //Schriftart
    Canvas.Font.Style := [fsBold];  //Fett
    Canvas.Font.Height := 18;       //Schriftgrösse
    canvas.textout(296+m*16,130,e[m]);
    if timer5.enabled=true then mediaplayer1.play else mediaplayer1.stop;
end;

[Natcree]

habe wohl den Auslöser gefunden in meiner mainform wird ein video als Hintergrund abgespielt. das Ganze mit der tmediaplayer komponente. Wenn ich diesen abschalte dann laufen die timer durch. Woran kann das liegen??