Ограничение на ввод даты

edit1.text[1] in .....

if edit1.text[1] in ['1','2'] then...

procedure TForm1.EdYearKeyPress(Sender: TObject; var Key: Char);
 
  begin
    if edyear.text[1] in ['1','2'] then showmessage('gg') ;
end;

if (edyear.text = '') and (key in ['1','2']) then showmessage('gg') ;

procedure TForm1.EdYearChange(Sender: TObject);
var b:integer; D:char;
begin
if Key1 in [#08] then
else
if (Length(EdYear.Text)=1) and (((EdYear.Text)='1') or ((EdYear.Text)='2')) then
b:=Strtoint(EdYear.Text)
else
IF(Length(EdYear.Text)=1) and (((EdYear.Text)<>'1') and ((EdYear.Text)<>'2')) THEN keybd_event(VK_BACK,0,0,0)
else
if (Length(EdYear.Text)=2) and (((EdYear.Text)='19') or ((EdYear.Text)='20')) then
b:=Strtoint(EdYear.Text)
else
IF (Length(EdYear.Text)=2) and (((EdYear.Text)<>'19') and ((EdYear.Text)<>'20')) THEN keybd_event(VK_BACK,0,0,0)
else
if (Length(EdYear.Text)=3) and (((EdYear.Text)>='190') and ((EdYear.Text)<='201')) then
b:=Strtoint(EdYear.Text)
else
IF (Length(EdYear.Text)=3) and (((EdYear.Text)<'190') or ((EdYear.Text)>'201')) THEN keybd_event(VK_BACK,0,0,0)
else
if (Length(EdYear.Text)=4) and (((EdYear.Text)>='1900') and ((EdYear.Text)<='2015')) then
b:=Strtoint(EdYear.Text)
else
IF (Length(EdYear.Text)=4) and (((EdYear.Text)<'1900') or ((EdYear.Text)>'2015')) THEN keybd_event(VK_BACK,0,0,0)
else if (Length(EdYear.Text)=5) then keybd_event(VK_BACK,0,0,0);