[lKinGl]

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;