Дан текст из строчных латинских букв и других знаков. Вычеркнуть из текста все гласные буквы."

[XeRoX]

Помогите с задачей для dealphi: "Дан текст из строчных латинских букв и других знаков. Вычеркнуть из текста все гласные буквы."
Вот тот пример как я сделал:
procedure vichet( S:string; var s2,s1:string);
Var
i,Y:integer;
K:set of char;
Begin
s1:='';
s2:='';
K:=['a','A','e','E','y','Y','u','U','i' ,'I','o','O'];
For i:=1 to Length(S) do
if S[i] in K then
s2:=s2+s[i]
else s1:=s1+s[i];
End;
procedure TForm1.Button1Click(Sender: TObject);
var
S:string;
s1,s2:string;
begin
S:=Edit1.text;
vichet(s,s1,s2);
Edit2.text:=s1;
Edit3.text:=s2;
end;
end.

проблема:1) как мне переделать задачу, чтоб можно было только латинские буквы вписывать

[L_M]

Вписывать куда лат. буквы? В Edit? Если так, то пожалуй сделать Edit1 неактивным и создать процедуру Form.OnKeyDown, создать глобальное множество лат букв и проверять введенную букву на присутствие в буквах, если есть, то дабавляем в Edit. Конкретнее напиши, что делать!

[XeRoX]

"создать глобальное множество лат букв"
С этим проблемка может выйти(я не знаю как создать), а остольное я впринципе понял. спасибо и за это учту на будушее.

[L_M]

ну глобально, т.е до всех процедур.
Вроде этого:

var
     q:set of char=['a','b'];

[Stilet]

как мне переделать задачу, чтоб можно было только латинские буквы вписывать

For i:=1 to Length(S) do
if  (S[i] in ['a'..'z','A'..'Z']) then
s2:=s2+s[i]
else s1:=s1+s[i];

[[Smarik]]

чтобы можно было вписывать только латинские буквы, можно сделать так:
с событие поля edit onclick прописат

case key of
'A'..'Z','a'..'z':;
else key:=chr(0);
end;

при таком отборе пользователь не сможет ввести ничего кроме того что вписано в операторе выбора.

[XeRoX]

Спасибо, выручили.