Нужно иметь исходники и их править.

Текст поля Memo, где должны быть отсупы должен начинать символом табуляции и только сначала строки (можно несколько символов табуляции).

Далее

unit frxGraphicUtils;

Редактируем в нескольких местах

1. Глобальная константа
const
IncTab = 30; // количество пикселей отступа.

Везде где встречается FParagraphGap делаем правки.

2. procedure TfrxDrawText.SetText(Text: TWideStrings; FirstParaBreak: Boolean);

вместо

if not FirstParaBreak then
WrapTextLine(s,
Round(Width * FPPI),
Round((Width - FParagraphGap) * FPPI),
Round(FCharSpacing * FPPI))

пишем

if not FirstParaBreak then
begin
k := FParagraphGap; // обьявить k: extended;
ss := Text[i]; // обьявить ss: string
while Copy(ss, 1, 1) = #9 do
begin
k := k + IncTab;
ss := Copy(ss, 2, Length(s) - 1);
end;
WrapTextLine(s,
Round(Width * FPPI),
Round((Width - k) * FPPI),
Round(FCharSpacing * FPPI));
end

По аналогии

3. procedure TfrxDrawText.DrawText(C: TCanvas; HAlign: TfrxHAlign; VAlign: TfrxVAlign);

вместо

for i := 0 to n - 1 do
begin
gx := 0;
al := HAlign;
par := Integer(FText.Objects[i]);
if (par and 1) <> 0 then
if HAlign in [haLeft, haBlock] then
gx := Round(FParagraphGap * FScaleX);
if (par and 2) <> 0 then
if HAlign = haBlock then
if FRTLReading then
al := haRight else
al := haLeft;

DrawTextLine(C, FText[i], x + gx, y, dx - gx, i, al, fh, oldfh);
Inc(y, Round(Ar[i] * CosA));
Inc(x, Round(Ar[i] * SinA));
end;

пишем

for i := 0 to n - 1 do
begin
gx := 0;
al := HAlign;
par := Integer(FText.Objects[i]);
if (par and 1) <> 0 then
if HAlign in [haLeft, haBlock] then
begin
k := FParagraphGap; // k: extended
ss := FText[i]; // ss: string
while Copy(ss, 1, 1) = #9 do
begin
k := k + IncTab;
ss := copy(ss, 2, Length(ss) - 1);
end;
gx := Round(k * FScaleX);
end;
if (par and 2) <> 0 then
if HAlign = haBlock then
if FRTLReading then
al := haRight else
al := haLeft;

DrawTextLine(C, FText[i], x + gx, y, dx - gx, i, al, fh, oldfh);
Inc(y, Round(Ar[i] * CosA));
Inc(x, Round(Ar[i] * SinA));
end;

4. function TfrxDrawText.CalcWidth: Extended;

вместо

par := Integer(FText.Objects[LineIndex]);
if (par and 1) <> 0 then
Inc(Sz.cx, Round(FParagraphGap * ratio));

пишем

par := Integer(FText.Objects[LineIndex]);
if (par and 1) <> 0 then
begin
k := FParagraphGap; // k: extended
s := FText[LineIndex]; // s: string
while Copy(s, 1, 1) = #9 do
begin
k := k + IncTab;
s := copy(s, 2, Length(s) - 1);
end;
Inc(Sz.cx, Round(k * ratio));
end;