If Length(Edit1.text) < 7 then label1.caption := 'Karakter belum lengkap' else ShowMessage('Horeee.. udah lengkap');

   MakEdit1.EditMask := 'M#######';

wew...langsung dijawab..oh ya sekalian nanya kakak...di edit mask tu yang character for blank khan tu harus disi khan? na khan kliatanya nggak enak dipandang klo misalnya jadi nanti tampilannya jadi M______ bisa nggak ya yang character for blank nya kosong ajah...and maksimal 7 char?

@DelphiExpert: klik tombol "..." di property EditMask, pada Input Mask Editor, set "Character for Blanks" dng spasi

If Length(EditMask1.text) < 7 then label1.caption := 'Karakter belum lengkap' else ShowMessage('Horeee.. udah lengkap');

if Length(Trim(MaskEdit1.Text)) < 7 then
  Label1.Caption:='Belom lengkap coy!!!'
else
  ShowMessage('Akhirnya...lengkap juga!!!');