[BASSON_XVI]

Если бы было все так просто

procedure TForm1.sButton1Click(Sender: TObject);
begin
if OpenDialog.Execute then
ShowMessage(OpenDialog.filename);
end;