İf İle Uzunluk Kontrolü

If (Length(Form.tckimlikno.ValueNum))<11 then
    MessageBox("T.C. Kimlik 11 Haneden Küçük Olamaz", "Model", MB_ICONSTOP)
    Return
  EndIf