Una mano con este procedure

[cloayza]

Variante 1:

Código Delphi [-]
procedure ProcedimientoX();
 begin
     with TOpenDialog.Create(Nil) do
     begin
          Title:='OpenDialogo';
          Execute;
          Free;
     end;
end;

Variante 2:

Código Delphi [-]
procedure ProcedimientoX();
 var
  OpenDialog : TOpenDialog;
begin
 OpenDialog:=TOpenDialog.Create(nil);
 OpenDialog.Title := 'Guardar Salva.';
 OpenDialog.Execute;
 OpenDialog.Free;
end;

Saludos