[ecfisa]

Hola linuxtin.

Proba de este modo:

Código Delphi [-]
unit uPersona;

interface

uses SysUtils, Classes;

type
  TPersona=Class
   private
    idPersona:string;
    FApellido:string;
    FNombre:string;
    //...
   public
    constructor Create(Apellido:string; Nombre:string);
    //... 
   published
    property Apellido: string read FApellido write FApellido;
    property Nombre: string read FNombre write FNombre;
    //...
  end;

implementation

constructor TPersona.Create(Apellido: string; Nombre: string);
begin
  FApellido:= Apellido;
  FNombre:= Nombre;
end;

//...

end.

Código Delphi [-]
...
implementation

uses uPersona;

procedure TForm1.Button1Click(Sender: TObject);
var
  Persona: TPersona;
begin
  Persona:= TPersona.Create('TRUENO','PEPE');
  ShowMessage(Persona.Nombre+' '+Persona.Apellido);
end;

Saludos.