Problema con maskedit
 

hola amigos foristas,

quisiera saber como comprobar si un maskedit tiene los datos completos o no

resulta que tengo un maskedit "Fecha de Nacimiento" y cuando presiono enter se resta la fecha actual con la fecha de nacimiento y me da la edad

pero no se anticipar el error si un usuario no escribe ningun dato o si los escribe incompletos

en español el algoritmo que quiero realizar es este:

si maskedit1.text esta completo y presiono enter
sacar edad(ya tengo el codigo).
de lo contrario
application.messagebox(' Debe llenar bien el maskedit'+#13+'Intentelo de nuevo','');
finsi


espero me puedan ayudar

Hola lKinGl, puedes utilizar la función TryStrToDate.

Código Delphi [-]
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
var
 Fecha : TDateTime;
begin
 if key=#13 then
  begin
   if TryStrToDate(MaskEdit1.Text, Fecha) then
    //Hacemos los calculos
   else
    begin
     showmessage('Debe llenar bien la fecha');
     MaskEdit1.SetFocus;
    end;
  end;
end;

1 millon amigo Caro es exactamente lo que queria

publico el códgio final para que a alguien mas le sirva

Código Delphi [-]
procedure TForm4.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
var
 Fecha : TDateTime;
begin
 if key=#13 then
  begin
   if TryStrToDate(MaskEdit1.Text, Fecha) then
    begin
     label8.Caption := IntToSTr(YearsBetween(StrToDate(MaskEdit1.Text), StrToDate(form3.Label1.Caption)))+'  Años';
    end
   else
    begin
     showmessage('Debe llenar bien la fecha');
     MaskEdit1.SetFocus;
    end;
  end;
end;

Hola de nuevo lking, solo comentarte que soy amiga ;).

Saluditos

Disculpa, de verdad no fue mi intencion amiga