@NeoDeluxe: lokale Variablen sind dafür nicht brauchbar
Eine Möglichkeit wäre auch den TagWert zu nutzen.
Delphi-Quellcode:
procedure TForm1.ImageOnClick(Sender: TObject);
begin
if Sender is TImage then
with TImage(Sender) do
begin
Tag := Tag + 1;
if Tag = 5 then
begin
Tag := 0;
Visible := False;
end;
end;
end;
end;
...
...