[angvelem]

Так и есть, но не улавливаю, почему. Сравниваю отдаваемый текст в 7-ке и 2009-ом, текст отдаётся одинаковый. Ещё посмотрю.

Как и предполагал, учитывются символы переноса строки. Такой вариант спасёт "отца русской демократии":

Код:

 
procedure TForm2.Button2Click(Sender: TObject);
var
  j, z : Integer;
  St : String;
begin
  z := 0;
  St := StringReplace(RichEdit1.Text, #13#10, ' ', [rfReplaceAll]);
  for j := 1 to Length(St) do
  begin
    if St[j] = Edit1.Text then
    begin
      positionbukv[z] := j;
      inc(z);
    end;
  end;
end;

Но... тут нужно учитывать в какой версии Дельфи компилится. В 7-ке такая поправка исказит результат