Ausserdem brauchst du einen Zähler für deine Bilder.
Diese Zählervariable sollte im Formular liegen:
Delphi-Quellcode:
TForm1 = class(TForm)
...
private
FBildNr : integer;
...
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// ein cooler Trick, wie man ohne "case" auskommt
Image1.Visible := (FBildNr = 0);
Image2.Visible := (FBildNr = 1);
Image3.Visible := (FBildNr = 2);
Inc(FBildNr);
if FBildNr > 2 then
FBildNr := 0;
end;