Du könntest z.B. den Timer auf 1135 ms stelle, und dann sowas machen:
Delphi-Quellcode:
var
Zeit: Integer;
...
// Timer-Prozedur:
dec (Zeit);
LabelX.Caption := inttostr ('
noch genau ' + zeit + '
tail''
sche Zeiteinheiten');
if Zeit = 0
then
begin
TimerY.Enabled := False;
// ...
end;
