Delphi - Memo Scroll

Dovendo utilizzare un memo su delphi mi sono trovato a dover far apparire le scrollbar solo quando è necessario:

procedure TForm1.MChange(Sender: TObject);
var
  Pos: TPoint;
begin
  Pos := M.CaretPos;
  if(M.Lines.Count * -M.Font.Height > M.Height)then
    M.ScrollBars := ssVertical
  else
    M.ScrollBars := ssNone;
  M.CaretPos := Pos;
end;

E poi posizionare il cursore nella giusta posizione...
Ho scoperto che il puntatore del memo si trova sempre 1 carattere + avnti o + indietro del punto giusto...
come faccio per risolvere questo problema?