[dec]

Hola,

Mira a ver si te funciona este "tip":

Código Delphi [-]
procedure SetLine(RichEdit: TRichedit; const LineNum, CharPos: Integer);
Begin
  RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, LineNum, 0) + CharPos;
  RichEdit.Perform(EM_SCROLLCARET, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLine(RichEdit1, StrToInt(Edit1.Text), 5);
  RichEdit1.SetFocus();
end;