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.