[4kusNick]

Код:

begin

  if Length(Edit1.Text) <> 16 then
  begin
    MessageBox(0,'ERROR',0,0);
  end
  else
  begin

  //  делаем, что хотим

  end;

end;