Una solución rápida sería implmentar el método OnGetText del campo CUENTA.
Código Delphi
[-]
procedure TDMatamodule.TablaCuentasCUENTAGetText(Sender: TField; var Text: string; DisplayText: boolean);
begin
Text := copy(' ', 1, Length(TablaCuentasCODIGO.AsString)) + TablaCuentasCUENTA.AsString;
end;
Código Delphi
[-]
procedure TDMatamodule.TablaCuentasCUENTAGetText(Sender: TField; var Text: string; DisplayText: boolean);
begin
Text := StringOfChar(' ', Length(TablaCuentasCODIGO.AsString)) + TablaCuentasCUENTA.AsString;
end;