#pas
    // визуальная линия интервала отступа, 4 оптимально MAV
    CP(SCI_SETINDENT, 4, 0);
    // включить, отключить визуализацию линии
    CP(SCI_SETINDENTATIONGUIDES, 1, 0);

#pas
CP(SCI_SETPROPERTY, LongInt(PChar('fold')), LongInt(PChar('1')));

#pas
    // Margins
    // number margin
    CP(SCI_SetMarginTypen,0, SC_MARGIN_NUMBER); 
    CP(SCI_SetMarginWidthN,0, 36); 
    // sep
    CP(SCI_SetMarginTypen,1, SC_MARGIN_SYMBOL) ;    
    CP(SCI_SetMarginWidthN,1, 12); 
    // folding margin
    CP(SCI_SetMarginMaskN, 2, SC_MASK_FOLDERS); 
    CP(SCI_SetMarginWidthN,2, 18); 
    CP(SCI_SetMarginSensitiveN,2, 1); 

    CP(SCI_SETFOLDFLAGS, 16, 0);
    CP(SCI_SETPROPERTY, LongInt(PChar('fold')), LongInt(PChar('1')));

#pas
procedure TScintilla.SetProperty(key : PChar; value : PChar);
begin
  SPerform(SCI_SETPROPERTY, LongInt(key), LongInt(value));
end;
//соответственно вызов процедуры
SetProperty('fold', '1');