por favor ayuda con este código me da un error gracias de antemano..

[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.

[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.

[the777]

program Project11unidad33333333333333333;

uses
Vcl.Forms,
Unit22 in 'Unit22.pas' {Persona};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TPersona, Persona);
Application.Run;
end.

[cloayza]

Amigo que quiere hacer....

Realice el siguiente cambio...

Código Delphi [-]
program Project11;

uses
Vcl.Forms,
Unit22 in 'Unit22.pas' {FormMain};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end.

Saludos cordiales

[the777]

identificador no declarado

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TPersona, Persona);
Application.Run;
end.

eso es lo que me dice al ejecutarlo...

[cloayza]

Amigo, ya le he sugerido 2 cambios y no los ha considerado, no seguiré perdiendo el tiempo...

Suerte

[the777]

si los realice perero sigue el error hermano disculpe que le había dicho....

[Neftali [Germán.Estévez]]

Empezado por the777

si los realice perero sigue el error hermano disculpe que le había dicho....

Hola.
Bienvenido al foro.
Te recomiendo que revises la Guía de estilo de los foros.
Tal y como te han dicho utiliza etiquetas cuando añadas código.

Y por último es que dediques tiempo a las preguntas si quieres que te den buenas respuestas.

[Casimiro Notevi]

Creo que incumple casi todas las normas del foro, de una sola tacada
Parece creado a propósito, como una broma.
Está en el foro "Trucos", pone un título absolutamente inadecuado, el texto mal, el código sin etiquetas, no responde correctamente a lo que se le contesta, etc. ...
Lo paso al foro "La taberna", porque allí encaja mejor
Es que es un ejemplo práctico de lo que no hay que hacer al publicar un mensaje.