Timer.Interval in Minuten ablaufend anzeigen

[Kidix]

2 Edit Komponenten

- ins erste Edit 10 reinschreiben
- ins zweite 0 reinschreiben

1 Timer Komponente

- Interval auf 1000
- Active := True

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
h,m : integer;
begin

 h := strtoint(Edit1.Text);
 m := strtoint(Edit2.Text);
    if m = 0 then
    begin
    dec(h);
        if (h < 0) and (m = 0) then
        begin
          
           Timer1.Enabled := false;
           ShowMEssage('Ende');
          
        end;
     m := 60;
     end;
 dec(m);
 Edit1.Text := inttostr(h);
 Edit2.Text := inttostr(m);
end;

Code müsste stimmen, überprüft das aber lieber nochmal!