[the777]

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)
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;

end;

end.