Validar que el edit contenga 12,13 o 14 digitos

[Lizette]

Hola, tengo un problema con la validación de un edit, éste edit contendrá el código de barras del producto, los cuales regularmente tienen 12,13 o 14 digitos, utilizo éste código, y sólo me acepta 12 digitos y me anula la tecla, qué condición puedo usar, también le intente con
EditCve.text>11 and EditCve.text<15, y de la misma manera sólo me acepta 12 digitos, a lo cual me resta sólo dar enter..

Gracias por sus aportaciones..

Código Delphi [-]

procedure TfrmProductoAdd.EditCveKeyPress(Sender: TObject; var Key: Char);
begin
if ((Length(EditCve.Text)=12)or(Length(EditCve.Text)=13)
 or(Length(EditCve.Text)=14)) and (Key<>Char(8)) and (Key<>Char(13))then
   Key:=Char(0);
 if (Key=Char(13)) and ((Length(EditCve.Text)=12)
 or(Length(EditCve.Text)=13)or(Length(EditCve.Text)=14)) then
 begin
  Key:=Char(0);
  EditDes.SetFocus;
 end;
end;