НTL вроде так

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then
begin
edit1.text:=OpenDialog1.FileName;
end;
end;

Flame of Soul опередил