Problema ao inserir linha em RichEdit

function Quebra(Texto: string): string;
var
 i: Integer;
 Teste: string;
const
 Fim = ´<EOF>´;
begin
 i := 1;
 while i <= Length(Texto) do
 begin
  if Texto[i] = ´<´ then
  begin
   Teste := Copy(Texto, i, 5);
   if TeSTE = ´<EOF>´ then
   begin
    result := result + Chr(13);
    i := i + 5;
   end;
  end;
  result := result + Texto[i];
  i := i + 1;
 end;
end;

............

var
s: string;
begin
s := ´linha1<EOF>linha2´;
RichEdit1.Lines.Add(Quebra(s));