Destacar linhas do RichEdit

Estou precisando destacar linhas de um richedit, por exemplo, da terceira linha em diante. Achei aqui no forum uma dica de posicionar na linha desejada, e em seguida configurar ate o final, o que resolveria meu caso, mas o comando passado não funcionou:
SelStart := Perform(EM_LINEINDEX, Linha, 0);
Simplesmente posiciona na primeira linha, independente do valor que coloque no lugar da Variavel ´Linha´.
Entao desenvolvi um procedimento que não acho o ideal, mas que resolveu em grande parte (codigo no final do topico). A cada mudanca no richedit (onChange) ele é reconfigurado, e só nao é perfeito porque o length NAO considera o ENTER na quebra de linha, entao, para cada ENTER sao duas posicoes erradas no SELSTART (pois considera o ENTER).
Alguma sugestão? Grato.

procedure TForm1.richChange(Sender: TObject);
var i, inicio, posicao: integer;
begin
posicao := rich.SelStart;

rich.SelStart := 0;
rich.SelLength := length(rich.Text);
rich.SelAttributes.Color := clBlack;

// Código que não funcionou
//rich.SelStart := Perform(EM_LINEINDEX, Linha, 0);
//rich.SelLength := length(rich.Text);
//rich.SelAttributes.Color := clRed;

// então trocado por este >>>
if (rich.Lines.Count > edLinha.Value) then
begin
inicio := 0;
i := 0;
while (i < edLinha.Value) do
begin
inicio := inicio + Length(rich.Lines[i]);
inc(i);
end;

rich.SelStart := inicio;
rich.SelLength := length(rich.Text) - inicio;
rich.SelAttributes.Color := clRed;
end;

rich.SelStart := posicao;
end;