[ecfisa]

Empezado por linuxtin

Como ven declarada la clase? Algo que esta mal?

Hola.

No... Pero podrías agregar algunos detalles a efectos de optimizar el ingreso de los valores:

Código Delphi [-]
...
type
  TPersona=Class
   private
    idPersona:string;
    FApellido:string;
    FNombre:string;
    //...
    function GuardarApellido: Boolean;
    function GuardarNombre: Boolean;
    procedure SetApellido(const Value: string);
    procedure SetNombre(const Value: string);
    //
   public
    constructor Create(aApellido:string; aNombre:string);
    //...
   published
    property Apellido: string read FApellido write SetApellido stored GuardarApellido;
    property Nombre: string read FNombre write SetNombre stored GuardarNombre;
    //...
  end;

implementation

constructor TPersona.Create(aApellido: string; aNombre: string);
begin
  Apellido:= aApellido;
  Nombre:= aNombre;
end;

function TPersona.GuardarApellido: Boolean;
begin
  Result:= FApellido <> '';
end;

function TPersona.GuardarNombre: Boolean;
begin
  Result:= FApellido <> '';
end;

procedure TPersona.SetApellido(const Value: string);
begin
  if Value <> FApellido then
    FApellido:= Value;
end;

procedure TPersona.SetNombre(const Value: string);
begin
  if Value <> FNombre then
    FNombre:= Value;
end;
...

Saludos.