Memory Spiel, fragen für befehl

[win98]

jo, denk ma das mit dem "wieder zudecken" is net son prob....

aba auch das hab ich veruscht....

mit dem anzeigen der pärchen klappt es.....

aber mit den "kein päärchen" geht das nciht, (oder ich komm durcheinander):
----------------------------

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.Hide;

if x=4 then begin
showmessage('supa, ein pärchen');
x:=0;
end
else
x:=2;
end;


procedure TForm1.Image4Click(Sender: TObject);
begin
image4.Hide;

if x=2 then
begin
showmessage('supa, ein pärchen');
x:=0;
end
else
x:=4;
end;

--------------------------
image 2 und image 4 sind paare.... habs auch mit "showmessage('kein paar')" probiert. das hab ich dan hinter "else" geschrieben, aber dann kommt die meldung "kein paar" wenn man den allerersten klick macht, weil dan x ja noch nich definiert ist.... hab die version auch ma in den anhang gemacht....


PS:
wie krieg ich denn die delphi-code reingepostet, so wie ihr das macht