Sender???

[Sharky]

Stop! halt! Zurück!

Du machst einen Denkfehler!

Was Du gemacht hast ist:

Für jeden der beiden Buttons ein OnClickereigniss zu haben.
Jetzt hast Du eine zusätzliche Procedure die in dem OnClick aufgerufen wird.
Das macht so keine Sinn. Entweder Du schreibst deinen Code direckt in an OnClick des jeweiligen Buttons.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Form1.OpenDialog1.Execute then
  begin
   ...
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Close;
end;

Oder Du weisst beiden Buttons die selbe OnClick Procedure zu.