TMPSyntaxParserClass = class of TMPSyntaxParser;

TMPCustomSyntaxMemo = class(TCustomControl)
    private
        fSPFactory      : TMPSyntaxParserClass;
....
    property SPFactory : TMPSyntaxParserClass read fSPFactory write fSPFactory;


constructor TMPCustomSyntaxMemo.Create(AOwner: TComponent);
var F: TFont;
begin
    inherited Create(AOwner);

    fSPFactory := TMPSyntaxParser;
....

destructor Destroy; override;  

destructor TMPSynMemoStrings.Destroy;
var
  i: Integer;
begin
    for i := Count - 1 downto 0 do
        Objects[i].Free;
  inherited;
end;

// Возвращает истину, если строка показывается на экране
function TMPCustomSyntaxMemo.IsLineVisible(const Row: Integer; const PScreenRow: PInteger = nil): Boolean;
var sr: Integer;
begin
    sr := RangeRowToScreenRow(Row);
    Result := InRange(sr, 0, ClientLines - 1);
    // Возвращаем относительный номер строки, даже если она не вида !!!
    if {!!!Result and }Assigned(PScreenRow) then
        PScreenRow^ := sr;
end;

// Помечаем к перерисовки все строки, ниже и равной заданной
procedure TMPCustomSyntaxMemo.NeedReDrawLE(const Row: Integer);
var Index: Integer;
begin
    if Parent = nil then Exit;
    {} {$IFDEF SYNDEBUG}
    {} LogFmt('Memo.NeedRedrawLE %d', [Row]);
    {} {$ENDIF}
    // Только помечаем строки к перерисовке
    // Если строка видна, или она выше первой отображаемой строки,
    // то помечаем к перерисовке все строки ниже её !!!
    if IsLineVisible(Row, @Index) or (Index<0) then
    begin
        if Index<0 then Index := 0;
        while Index <= High(fScreenLines) do begin
            fScreenLines[Index] := True;
            Inc(Index);
        end;
    end;
    // Пробуем перерисовать
    ReDraw;
end;

procedure TMPCustomSyntaxMemo.ReDraw;
var i: Integer;
begin
    if (Parent = nil) or (Lines.UpdateCount > 0) then Exit;
    HideCaret;
    for i := Low(fScreenLines) to High(fScreenLines) do
        // вот тут закомментировать, так как не всегда видимые строки корректно считаются  
        //if fScreenLines[i] then
        begin
            PaintLineEx3(i, FindVisibleRow(OffsetY, i, False));
            fScreenLines[i] := False;
        end;
    ShowCaret;
end;