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.