[[ArdiIIa]]

procedure TForm1.BExaminarClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
     Edit1.Text:=(OpenDialog1.FileName);

end;