Opendialog filename problem

[Innovation]

Hallo,

vermutlich total der Anfängerfehler. Ich benutze einen TOpendialog um einen file auszuwählen und will dann in einer anderen procedure ein file benutzen.

Code:

procedure TForm1.Open1Click(Sender: TObject);
var
  bopendialog : TOpenDialog;
  //BFileName : string;
begin
  bopendialog := TOpenDialog.Create(Self);
  Bopendialog.Execute;
  //BFileName := Bopendialog.FileName;
end;

procedure TForm1.TestbtnClick(Sender: TObject);
begin
  testmemo.Lines.LoadFromFile(Bopendialog.FileName);
end;

ich erhalte folgende Fehlermeldung:

cannot open file ""...

und wie war das nochmal mit dem Opendialog.Free? Reicht es wenn ich das in TForm1.close reinapacke.

MfG