[ariefez]

También puedes implementar una rutina de clase

Código Delphi [-]
...

  // Rutinas de la unidad global

  Rutinas = class

  public

    class procedure OpenDialogShow(var Sender: TObject);

  end;

...


class procedure Rutinas.OpenDialogShow(Sender: TObject);
begin
  if TOpenDialog(Sender).Tag = 1 then
    SetDlgItemText(GetParent(TOpenDialog(Sender).Handle), IDOK, PChar('&Abrirlo'))
  else
    SetDlgItemText(GetParent(TOpenDialog(Sender).Handle), IDOK, PChar ('&Guardarlo'));
end;

// Asigna el evento al componente TOpenDialog

...

  with TOpenDialog.Create(nil) do
  try
    OnShow:= Rutinas.OpenDialogShow;
    Tag:= Integer(Accion);
    if Execute then
      ...
  finally
    Free;
  end;

...