[cloayza]

Estimado amigo no indica cual es el error...pero como diría un maestro del foro...

Me acaba de llegar mi bola de cristal y creo que su problema puede ser este...

Como consejo escriba con las etiquetas adecuadas el código...

Código Delphi [-]
unit Unit22;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
{TPersona = class (TForm)}
TPersona = class
private
  FCedula: string;
  FNombre: string;
  FNumeroSeguridadSocial: string;
  FDireccion: string;
  FFechaNacimiento: TDateTime;
public
  constructor Create(const ACedula, ANombre, ANumSegSocial, ADireccion: string; AFechaNacimiento: TDateTime);
  procedure MostrarInformacion;
end;

TFormMain = class(TForm)
lblCedula: TLabel;
lblNombre: TLabel;
lblNumSegSocial: TLabel;
lblDireccion: TLabel;
lblFechaNacimiento: TLabel;
edtCedula: TEdit;
edtNombre: TEdit;
edtNumSegSocial: TEdit;
edtDireccion: TEdit;
edtFechaNacimiento: TEdit;
btnMostrarInfo: TButton;
procedure btnMostrarInfoClick(Sender: TObject);
private
persona: TPersona;
public
{ Public declarations }
end;

var
FormMain: TFormMain;

implementation

{$R *.dfm}

constructor TPersona.Create(const ACedula, ANombre, ANumSegSocial, ADireccion: string; AFechaNacimiento: TDateTime);
begin
FCedula := ACedula;
FNombre := ANombre;
FNumeroSeguridadSocial := ANumSegSocial;
FDireccion := ADireccion;
FFechaNacimiento := AFechaNacimiento;
end;

procedure TPersona.MostrarInformacion;
begin
Writeln('Cédula:', FCedula);
Writeln('Nombre:', FNombre);
Writeln('Número de Seguridad Social:', FNumeroSeguridadSocial);
Writeln('Dirección:', FDireccion);
Writeln('Fecha de Nacimiento:', DateToStr(FFechaNacimiento));
end;

procedure TFormMain.btnMostrarInfoClick(Sender: TObject);
var

cedula, nombre, numSegSocial, direccion: string;
fechaNacimiento: TDateTime;
begin
cedula := edtCedula.Text;
nombre := edtNombre.Text;
numSegSocial := edtNumSegSocial.Text;
direccion := edtDireccion.Text;
fechaNacimiento := StrToDate(edtFechaNacimiento.Text);

persona := TPersona.Create(cedula, nombre, numSegSocial, direccion, fechaNacimiento);
persona.MostrarInformacion;
//No olvidar liberar la instancia
persona.free;
end;

end.