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