Как написать цикл через while

[ruffer]

Как нужно правильно написать цикл while чтобы выполнялось условие

[DELPHI]if ((m[k] in ['a','i','e','o','y','u']) and CheckBox1.Checked) or
((m[k] in ['q','w','r','t','p','s','d','f','g' ,'h','j','k','l','z','x','c','v','b ','n','m']) and CheckBox2.Checked) or
((m[k] in ['1','2','3','4','5','6','7','8','9']) and CheckBox3.Checked) then
delete(m,k,1);[/DELPHI]

[<- DelpHIFanat ->]

Ну, наверное, так.

While ((m[k] in ['a','i','e','o','y','u']) and CheckBox1.Checked) or
((m[k] in ['q','w','r','t','p','s','d','f','g' ,'h','j','k','l','z','x','c','v','b ','n','m']) and CheckBox2.Checked) or
((m[k] in ['1','2','3','4','5','6','7','8','9']) and CheckBox3.Checked) Do
delete(m,k,1);

Мне, просто, не очень понятно, что от этого цикла надо: удалить что-ли определённые элементы, в зависимости от того, что выбрал пользователь. Если, например, CheckBox3.Checked=True, то тогда программа должна удалить цифры 1..9 с определённого места или все такие цифры, имеющиеся в строке? Если нужно удалить все цифры множества, то я бы воспользовался этим условием, только поставил цикл так:

k:=0;
While (k<Length(m)) Do
Begin
if ((m[k] in ['a','i','e','o','y','u']) and CheckBox1.Checked) or
((m[k] in ['q','w','r','t','p','s','d','f','g' ,'h','j','k','l','z','x','c','v','b ','n','m']) and CheckBox2.Checked) or
((m[k] in ['1','2','3','4','5','6','7','8','9']) and CheckBox3.Checked) then
delete(m,k,1);
Inc(k);
End;