задача на текстовый файл в delphi

[[Drumm-are-turG]]

Прочитать текстовый файл. На отдельной форме вывести текст, в котором все слова из латинских символов и цифр выделены другим цветом. Я вывожу текст на новую форму с использованием richedit-а, но как цвет сделать не знаю. Завёл множество с лат.буквами и цифрами, но всё равно проверяется только строка...чтобы проверить посимвольно над исп. RichEdit.selstart, ...sellength, ...seltext, как сказал мне препод( ни могу разобраца, помогите, пожалуйста...

[[Drumm-are-turG]]

procedure TForm1.Button2Click(Sender: TObject);
const MySet=['a'..'z','A'..'Z','0'..'9'];
var
i,j:integer;
c:string;
begin
Form2.Visible:=true;
Form2.RichEdit1.Lines:=Form1.RichEd it1.Lines;

{RichEdit1.Text
RichEdit1.SelStart
RichEdit1.SelLength}

for i:=0 to Form2.RichEdit1.Lines.Count-1 do
begin
c:=Form2.RichEdit1.Lines[i];
for j:=1 to Length(c) do
begin
if (c[j] in MySet) then
Form2.RichEdit1.Font.Color:=clRed
else Form2.RichEdit1.Font.Color:=clBlack ;
end;
end;
end;


вот код процедуры, еси поможет