random zahl genau 2 mal

[wo0zy]

ich hab das ganze jetzt mal gemacht wie jens, und das funzt auch, doch nun wollte ich das spiel erweitern, undzwar sollen immer dann die letzen beiden buttons verschwinden, wenn diese die gleich caption haben. das ganze hab ich so gemacht

Code:

procedure TForm1.OnBtnClick(Sender: TObject);
var
 Sender1:TObject;
  begin
    If Sender is TFlatBtn then
      count:=count+1;
    if count=1 then
      Sender1:=Sender;
    if count=2 then begin
      count:=0;
        if (Sender1 as TFlatBtn).Caption=(Sender as TFlatBtn).Caption then begin
          //(Sender as TFlatBtn).Color:=clRed;
          (Sender as TFlatBtn).hide;
          //(Sender1 as TFlatBtn).Color:=clRed;
          (Sender1 as TFlatBtn).hide;
        end;
    end;
  end;

doch

Code:

if (Sender1 as TFlatBtn).Caption=(Sender as TFlatBtn).Caption

wird nie erreicht, vor dem erreichen bekomme ich immer folgenden fehler

Zitat:

Im Projekt Memory.exe ist eine Exception der Klasse EAccesViolation aufgetreten. Meldung:'Zugriffsverletzung bei Adresse 004032E8 in Modul 'MEMORY.EXE'. LEsen von Adresse 66D88B2F'...

woran liegt das??