помогите с организацией поиска слов в richedit

[BuT@JL]

Вообщем нашел я в нете код поиска слов в richedit, так как я только учусь, ни фига не понимаю в чем ошибка. Т.е. всё работает нормально, он находит нужное слово, но если я меняю РАЗМЕР шрифта, то он начинает не правильно выделять найденные слова, т.е. съежает на несколько символов вперед.

Вот код.

procedure TForm1.FindDialog1Find(Sender: TObject);
var SPos: integer;
begin
with FindDialog1 do
begin
RichEdit1.SelStart := Pos(AnsiLowerCase(FindText),AnsiLow erCase(Copy(RichEdit1.Lines.Text, SPos + 1,Length(RichEdit1.Lines.Text)))) + Spos - 1;
if RichEdit1.SelStart >= Spos
then
begin
RichEdit1.SelLength := Length(FindText);
SPos := RichEdit1.SelStart + RichEdit1.SelLength + 1;
end
else
begin
if MessageDlg('Больше слов "'+FindText+'" не найдено. Закрыть поиск?', mtConfirmation, mbYesNoCancel, 0) = mrYes
then CloseDialog;
SPos:=0;
end;
end;
RichEdit1.SetFocus;
end;

[BuT@JL]

Ну кто нибудь подскажет, а то я всю голову сломал