Hallo,
falls es auch ohne Timer sein darf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 4 downto 0 do
begin
if i = 0 then
ShowMessage('Blupp')
else
begin
ShowMessage(IntToStr(i));
Sleep(1000);
end;
end;
end;
Grüsse, Daniel
