[dec]

Hola,

Código Delphi [-]
uses
  Dialogs, ExtDlgs;

function DialogoParaElegirUnaImagen : string;
var
  dlg: TOpenPictureDialog;
begin
  // Creamos un "TOpenPictureDialog".
  //
  dlg := TOpenPictureDialog.Create(nil);
  //
  with dlg do begin
    // Cambiamos algunas propiedades
    // del "TOpenPictureDialog", véase
    // la ayuda de este componente para
    // saber de sus propiedades y tal.
    //
    InitialDir := 'C:\';
    DefaultExt := 'jpg';
    Options := [ofFileMustExist];
    Title := 'Elige una imagen.';
    //
    try
      // Mostramos el diálogo al usuario...
      //
      if Execute then
        // y, si el usuario elige una imagen...
        Result := dlg.FileName;
    //
    // Y, finalmente...
    //
    finally
      dlg.Free; // Ciao! "TOpenPictureDialog".
    end;
  end; // Final del "with dlg do begin..."
end;

// Ejemplo de llamada a la función anterior
//
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage( DialogoParaElegirUnaImagen );
end;