[The Shadow]

Может так?

Код:

procedure TForm1.Button1Click(Sender: TObject);
function open1:string;
 begin
  if OpenDialog1.Execute then
   open1:=OpenDialog1.filename;
 end;
var
name:string;
begin
name:=open1;
end;