Проверка правильности имени на Делфи

[hohol90]

Люди помогите написать программу, для проверки правильности вводимого имени в поле Edit при нажатии кнопки Button.

Условия: 1) Имя должно начинаться на букву латиницы либо кириллицы (русский и английский алфавиты).
2) Максимальное колличество символов = 10.
3) В имени разрешены буквы, цифры и знак "_".
При несоответствии хотя бы одному условию, должно выводиться сообщение о некоректном вводе.

Буду очень благодарен.

[notHaker]

function PrepareName(s : string) : bool;
var
  i : integer;
begin
  result := false;
  if (length(s) <= 0) or (length(s) > 10) then exit;
  s := UPPERCASE(s);
  if ((s[1] >= 'A') and (s[1] <= 'Z')) or ((s[1] >= 'А') and (s[1] <= 'Я')) then
  begin
    while () or (i <= 1 to length(s)) do
    if ((s[i] >= 'A') and (s[i] <= 'Z')) or ((s[i] >= 'А') and (s[i] <= 'Я')) or (s[i] = '_') or ((s[i] >= '0') and (s[i]<='9')) then     
    inc(i)
else
    exit;
  end
  else
    exit;
  result := true;
end;