[URBANO]

Perdon por la tardanza en responder, estaba buscando alguna solución. Pero no he encontrado nada. Este es mi cogido:

Código Delphi [-]
unit Ucolegiado;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, TFlatButtonUnit, jpeg,
  db, dbtables, Buttons, DsFancyButton,ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ComCtrls, ToolEdit, RXDBCtrl, ShellAPI;

type
  TFcolegiado = class(TForm)
    FlatButton22: TFlatButton;
    FlatButton23: TFlatButton;
    DBEdit36: TDBEdit;
    FlatButton24: TFlatButton;
    FlatButton25: TFlatButton;
    FlatButton26: TFlatButton;
    Shape1: TShape; /// AQUI ME DICE EL COMPILADOR QUE ESTA EL ERROR
    procedure DBEdit1Enter(Sender: TObject);
    procedure focoenter(Sender: TObject; var Key: Char);
    procedure DBEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
     ancho = 1024; // Ancho del diseño
     alto = 768; // Alto del diseño

var
  Fcolegiado: TFcolegiado;
  busqueda: integer;

implementation

{$R *.DFM}
uses udatos, auxiliar, Ufamiliares, Uempresas, Ubancos, Umutuas, Ueuitm,
  Ucolegiados, Ucorreo, UdatosSMS, Usms;

El mensaje que me da es:

"Published field 'Shape1' not a class nor interface type"

Si quito el objeto Tshape de la ventana, ya compila bien. Es raro, verdad???

Saludos y gracias por la ayuda.