procedure 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;
procedure GestionBD(Accion:TAccion);
var
OpenDialog: TOpenDialog;
Query: TADOQuery;
SQL, MSG: String;
begin
try
with TOpenDialog.Create(nil) do
begin
OnShow:= OpenDialogShow; Tag:= 1;