[<<D>>]

Это простой пример. За две минуты написал:

Код:

procedure SetVisible(image:TImage);
begin
    Form1.image1.Visible:=false;
    Form1.image2.Visible:=false;
    Form1.image3.Visible:=false;
    image.Visible:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if image1.Visible=true then
    begin
        setvisible(image2);
    end
    else if image2.Visible then
    begin
        setvisible(image3);
    end
    else
    begin
        setvisible(image1);
    end;
end;