Skifte mellem 2 billeder

Jeg har en form med 4 editbox'e, 4 knapper og 4 image komponenter. Hvert sekund bliver current time skrevet i hver af de 4 editbox'e. Hvis man klikker på en af knapperne, så bli'r tiden ikke længere opdateret i den pågældende editbox (se kode længere nede!). Hver knap har et tag (1-4) som passer til editbox'ene.

Nu vil jeg gerne ha' at når man klikker på kanppen, så skal den også skifte billedet ud i den pågældende image komponent. Der skiftes hele tiden mellem 2 billeder (og kun 2 billeder!). Altså vises billede 1 allerede, så skal den vise billede 2 og omvendt !

Håber i fatter hvad jeg mener ;)

Snowball

type
  KontrolArray = array[1..4] of boolean;

var
  Form1: TForm1;
  Ar : Kontrolarray;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ar[1] then
  edit1.Text := TimeToStr(Time);
  if ar[2] then
  edit2.Text := TimeToStr(Time);
  if ar[3] then
  edit3.Text := TimeToStr(Time);
  if ar[4] then
  edit4.Text := TimeToStr(Time);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 1 to 4 do
    ar[i] := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ar[tbutton(sender).tag]:= not ar[TButton(sender).tag];
end;