[pcicom]

Código Delphi [-]
procedure TfrmMainMenu.Facturas1Click(Sender: TObject);
begin
  Facturas := TFacturas.Create(Application);
  LockWindowUpdate(handle);
  try
    Facturas.Show;
  finally
    LockWindowUpdate(0);
    Facturas.Free;
  end;
end;

Espero te sirva....