[[ElKurgan]]

Código Delphi [-]
// Cargar nombre del archivo con ruta
  if OpenPictureDialog1.Execute then
    Edit1.Text := OpenPictureDialog1.FileName;

// Cargar sólo la ruta
  if OpenPictureDialog1.Execute then
    Edit1.Text := ExtractFilePath(OpenPictureDialog1.FileName);

// Cargar sólo el nombre del archivo
  if OpenPictureDialog1.Execute then
    Edit1.Text := ExtractFileName(OpenPictureDialog1.FileName);

Saludos