Code:

with Richedit1 do

begin

    selstart := perform( EM_LINEINDEX, linenumber, 0 );

    perform( EM_SCROLLCARET, 0, 0 );

end;

{

The EM_LINEINDEX message returns the character index of the first character

on a given line, assigning that to selstart moves the caret to that position.

The control will only automatically scroll the caret into view if it has

the focus, thus the EM_SCROLLCARET.

}