Na so sonderlich schwierig ist das doch nicht
Plazier noch ein Label auf Deine Form und erweitere Dein OnTimer-Ereignis
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
counter:= counter+1;
RestLabel.Caption := 'Time to go: '+IntToStr(Zeit-Counter); // Voila "Restzeitanzeige"
if(counter=zeit) then
begin
ShowMessage('Zeit abgelaufen');
Timer1.Enabled:=False;
counter:=0;
zeit :=0;
end;
Moin