Bilderschleife

[Bellla]

Hallo, habe ein Problem
Ich möchte ein auge als anfangsbild es gibt mehrere Buttons.
fangen wir mit dem ersten an. drückt man den ersten button sollen fotos kommen.
drückt maneinen anderen button erscheinen andere bilder
ich habe so angefangen

Code:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
if status=0 then
            begin
            for i:=0 to 1000 do ;
            image2.visible:=true;
            if image2.Visible  then

            begin;
            image1.visible:=false;
            status:=1;
            exit;
            end;
            end


            else if status=2 then
            begin
            for i:=0 to 1000 do ;
            if image3.Visible  then

            begin;
            image2.visible:=false;
            status:=2;
            end;
            end



            else if status=3then
            begin
            for i:=0 to 1000 do ;
            if image4.Visible  then

            begin;
            image3.visible:=false;



            status:=4;
            exit;
            end;


end;
end;

end.

ich komme nicht weiter