функция ввода цифр и букв

[SFL]

здравствуйте, помогите пожалуйста разобратся с функцией.
есть такая функция

function fio (Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
var s1,s2:string;
begin
result:=-999;
s1:=trim(Item1.SubItems[0]);
s2:=trim(Item2.SubItems[0]);
if paramsort=1 then begin
if length(s1)>0 then begin
if not(s1[1]in ['0'..'9','A'..'Z','a'..'z','а'..'Я'])then s1:='Я'+s1;
end else s1:='Я';
if length(s2)>0 then begin
if not(s2[1]in ['0'..'9','A'..'Z','a'..'z','а'..'Я'])then s2:='Я'+s2;
end else s2:='Я';
end
else begin
if length(s1)>0 then begin
if not(s1[1]in ['0'..'9','A'..'Z','a'..'z','а'..'Я'])then s1:=' '+s1;
end else s1:=' ';
if length(s2)>0 then begin
if not(s2[1]in ['0'..'9','A'..'Z','a'..'z','а'..'Я'])then s2:=' '+s2;
end else s2:=' ';
end;
case paramsort of
//ascending
1:  Result := CompareText(s1,s2);
//descending
0:  Result := -CompareText(s1,s2);
end;
end;

надо что бы вводились буквы русского алфавита.
заранее спасибо

[FaTaL]

Куда вводились то?

[SFL]

надо вводить в edit

[Jeni]

Обрабатывай событие OnKeyPress для Edit и проверяй каждый вводимый символ на допустимость.

[SFL]

Jeni, ага событие OnKeyPress для Edit я знаю, а вот с функцие что никак??

[EdNovice]

Используй событие TEdit OnKeyPress.

[Jeni]

Сообщение от SFL

а вот с функцие что никак??

Просто нет времени разбираться с непонятной функцией, когда нужное действие можно записать в одну строку.