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

[Анастасия91]

нужно в поле memo1 сделать сравнение посимвольно... чтобы из текста символов брался каждый символ и сравнивался с a,b,c а также с числами от 0 до 9 и выводились только те буквы и цифры, которые совпадают с буквами a,b,c и цифрами от 0 до 9, и по нажатию кнопки button2 все отсортированные значения выводились в memo2
в программе выводтся ошибки(incompatible types string and integer)..
как правильно реализовать программу чтоб не было ошибок и она корректно работала....?

function TForm1.Сравнение: string;
var lenMemo,i,j,k,KomEnd:integer;kom1,kom2,na4:string;
begin
lenMemo:=Memo1.GetTextLen;
Memo2.Clear;
i:=1;
while i<>lenMemo do
begin
if (Memo1.Text[i]='a') then begin na4:=i end;
if (Memo1.Text[i]='b') then begin na4:=i end;
if (Memo1.Text[i]='c') then begin na4:=i end; 

kom2:=kom2+Memo1.Text[i];
inc(i); 
end;
Memo2.Text:=Memo2.text+kom2;
Memo2.Lines.Add(#13#10);
kom2:='';
end;

[Mad_Cat]

а вот здесь чего происходит?

na4:=i

так не короче

procedure TForm1.Сравнение;
var s:string;
a:set of char;
i:integer;
begin
a:=['a','b','c','0'..'9'];
s:=Memo1.Text;
Memo2.Clear;
for i:=1 to length(s) do
if s[i] in a then memo2.text:=memo2.text+s[i];
end;