[petitrad]

aun me marca el mismo error, aqui esta el codigo que utilizo en las formas

Código Delphi [-]
//Principal 
unit Principal;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LMDControl, LMDBaseControl, LMDBaseGraphicButton,
  LMDCustom3DButton, LMD3DEffectButton, ExtCtrls, StdCtrls,
  LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel, LMDSimplePanel,
  LMDCustomShapeButton, LMDShapeButton, LMDCustomParentPanel, LMDBackPanel;
type
  TMain = class(TForm)
    LogoQS: TImage;
    Panel1: TPanel;
    LetrasLP: TImage;
    NUsuario: TLabel;
    Fecha: TLabel;
    Hora: TLabel;
    Panel2: TPanel;
    LMDSimplePanel8: TLMDSimplePanel;
    BVentas: TLMDShapeButton;
    LMDSimplePanel9: TLMDSimplePanel;
    BCompras: TLMDShapeButton;
    LMDSimplePanel10: TLMDSimplePanel;
    BCuentasCobrar: TLMDShapeButton;
    LMDSimplePanel11: TLMDSimplePanel;
    BCuentasPagar: TLMDShapeButton;
    LMDSimplePanel12: TLMDSimplePanel;
    BReportes: TLMDShapeButton;
    LMDSimplePanel14: TLMDSimplePanel;
    BInventario: TLMDShapeButton;
    LMDSimplePanel13: TLMDSimplePanel;
    BUtilidades: TLMDShapeButton;
    LMDSimplePanel15: TLMDSimplePanel;
    BPalm: TLMDShapeButton;
    LMDSimplePanel16: TLMDSimplePanel;
    BSalir: TLMDShapeButton;
    procedure BSalirClick(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure LMDSimplePanel8MouseEnter(Sender: TObject);
    procedure LMDSimplePanel9MouseEnter(Sender: TObject);
    procedure LMDSimplePanel10MouseEnter(Sender: TObject);
    procedure LMDSimplePanel11MouseEnter(Sender: TObject);
    procedure LMDSimplePanel12MouseEnter(Sender: TObject);
    procedure LMDSimplePanel13MouseEnter(Sender: TObject);
    procedure LMDSimplePanel14MouseEnter(Sender: TObject);
    procedure LMDSimplePanel15MouseEnter(Sender: TObject);
    procedure LMDSimplePanel16MouseEnter(Sender: TObject);
    procedure LogoQSClick(Sender: TObject);
    procedure LetrasLPClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BVentasClick(Sender: TObject);
    procedure BComprasClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure AbreCotizacion();
  end;
var
  Main: TMain;
implementation
uses Ventas, MenuV, MenuC, MenuCC, MenuCP, MenuI, MenuR, MenuU, Compras,
  Cotizaciones;
{$R *.dfm}
procedure TMain.BSalirClick(Sender: TObject);
var
        I: integer;
begin
//cierra todas las ventanas que esten abiertas
for I := 0 to Screen.FormCount - 1 do
       Screen.Forms[i].Close;
Close;
end;
procedure pantalla_completa();
var
  HTaskbar : HWND;
begin
  TRY     //Obtener el  handle del Taskbar de Windows
    HTaskBar:=FindWindow('Shell_TrayWnd',nil );
    EnableWindow(HTaskBar,False);  //Deshabilitar el Taskbar
    ShowWindow(HTaskbar,SW_HIDE);   //Esconder el Taskbat
  FINALLY
    With  Main  do begin
      BorderStyle :=bsNone;
    //  FormStyle :=fsStayOnTop;
      Left :=0;
      Top :=0;
      Height :=Screen.Height;
      Width :=Screen.Width;
    end;
  END //FINALLY    end;
end;
procedure restaurar_pantalla_completa();
var
  HTaskbar : HWND;
  OldVal : LongInt;
begin
    HTaskBar:=FindWindow('Shell_TrayWnd',nil );
    SystemParametersInfo (97, Word (False), @OldVal, 0); //solo en Win 95/98/ME
    EnableWindow(HTaskBar,True);
    ShowWindow(HTaskbar,SW_SHOW);
end;
procedure TMain.FormClick(Sender: TObject);
begin
        //Esconde todos los menus.
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel8MouseEnter(Sender: TObject);
begin
        //Muestra Menu Ventas
        MVentas.Show;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel9MouseEnter(Sender: TObject);
begin
        //Muestra Menu Compras
        MVentas.Hide;
        MCompras.Show;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel10MouseEnter(Sender: TObject);
begin
        //Muestra Menu  Cuentas Por Cobrar
        MCC.Show;
        MVentas.Hide;
        MCompras.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel11MouseEnter(Sender: TObject);
begin
        //Muestra Menu Cuentas Por Pagar
        MCP.Show;
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel12MouseEnter(Sender: TObject);
begin
        //Muestra Menu Reportes
        MReportes.Show;
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel13MouseEnter(Sender: TObject);
begin
        //Muestra Menu Utilidades
        MUtilidades.Show;
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel14MouseEnter(Sender: TObject);
begin
        //Muestra Menu Inventarios
        MInventario.Show;
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
end;
procedure TMain.LMDSimplePanel15MouseEnter(Sender: TObject);
begin
        //Esconde todos los menus
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LMDSimplePanel16MouseEnter(Sender: TObject);
begin
        //Esconde todos los menus
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LogoQSClick(Sender: TObject);
begin
        //Esconde todos los menus
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.LetrasLPClick(Sender: TObject);
begin
        //Esconde todos los menus
        MVentas.Hide;
        MCompras.Hide;
        MCC.Hide;
        MCP.Hide;
        MReportes.Hide;
        MUtilidades.Hide;
        MInventario.Hide;
end;
procedure TMain.FormCreate(Sender: TObject);
var
  stSystemTime : TSystemTime;
begin
  Windows.GetLocalTime( stSystemTime );
  Hora.Caption := DateTimeToStr( SystemTimeToDateTime( stSystemTime ) );
  pantalla_completa();
end;
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  restaurar_pantalla_completa();
end;
procedure TMain.BVentasClick(Sender: TObject);
begin
        //Crea y abre la ventana de ventas en modo Hija.
        if venta = nil then
        begin
              venta := TVenta.Create(self);
              venta.FormStyle := fsMDIChild;
              venta.Left :=0;
              venta.Top :=0;
              venta.Width:=Screen.Width-15;
              venta.Height:= Screen.Height-50;
              venta.Parent     :=  self;
        end;
        venta.Show;
end;
procedure TMain.BComprasClick(Sender: TObject);
begin
//Pendientes todas las formas
        Compra.Show;
end;
procedure TMain.AbreCotizacion();
begin
        Cotizacion.Show;
end;

End.
 
 
 
// Ventana Hija.
 
 
unit Ventas;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,
  LMDCustom3DButton, LMD3DEffectButton, LMDCustomControl, LMDCustomPanel,
  LMDCustomBevelPanel, LMDSimplePanel, StdCtrls, LMDCustomShapeButton,
  LMDShapeButton, Grids;
type
  TVenta = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Bevel1: TBevel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Image4: TImage;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    LMDShapeButton1: TLMDShapeButton;
    StringGrid1: TStringGrid;
    LabeledEdit8: TLabeledEdit;
    LMDShapeButton2: TLMDShapeButton;
    LabeledEdit9: TLabeledEdit;
    LabeledEdit10: TLabeledEdit;
    LabeledEdit11: TLabeledEdit;
    LMDShapeButton3: TLMDShapeButton;
    LMDShapeButton4: TLMDShapeButton;
    LabeledEdit12: TLabeledEdit;
    LMDShapeButton5: TLMDShapeButton;
    procedure LMDShapeButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Venta: TVenta;
implementation
uses Principal;
{$R *.dfm}

procedure TVenta.LMDShapeButton4Click(Sender: TObject);
begin
        Close;
end;
procedure TVenta.FormClose(Sender: TObject; var Action: TCloseAction);
begin   
        Action := caFree;
        Venta := nil;
end;
end.

aun asi no funciona cambiando el action a la parte de abajo.

espero que me puedan ayudar.