Button einer anderen unit Enabled auf false setzen

[winkelmesser]

Hallo und ein Frohes neues Jahr an alle


In der ersten Form benutze ich

Delphi-Quellcode:

var
  Form1: Tform1;
  SenderForm1 : TObject;

und

Delphi-Quellcode:

procedure TForm1.Button(Sender: TObject);
begin
  SenderForm1 := TButton(sender);  
  form2.ShowModal;
end;

In der zweiten Form

Delphi-Quellcode:

procedure TForm2.SchlieseForm2(sender : TObject);
begin
  if TButton(sender) = BOK then
  begin
    TButton(SenderForm1).Enabled := false;
  end;
end;

bekomme die Fehlermeldung Zugriffsverletzung

TButton(SenderForm1).Enabled := false;


mfg Winkelmesser