if OpenPictureDialog1.Execute then
begin
Edit1.text := OpenPictureDialog1.Files.Text ;
Edit2.text := OpenPictureDialog1.Files.Strings[0];
end;
begin
Edit1.text := OpenPictureDialog1.Files.Text ;
Edit2.text := OpenPictureDialog1.Files.Strings[0];
end;
if OpenPictureDialog1.Execute then
begin
Edit1.text := OpenPictureDialog1.FileName ;
Edit2.text := ExtractFilePath(OpenPictureDialog1.FileName);
end;