[ratings]
Procedure setline(memo:TMemo;Linepos,charpos:integer);
Begin
with memo do
begin
selstart:=perform(EM_LineIndex,LinePos,charpos)+charpos;
perform(EM_ScrollCaret,0,0);
SetFocus;
end;
end;