My code
begin
(*
*)
RichMemo1.GetParaTabs(0, st); // getting the current tabs
st.Count:=8;
SetLength(st.Tabs, st.Count);
for i:=0 to length(st.Tabs)-1 do
st.Tabs.Offset:=i*172; ///plus large
RichMemo1.SetParaTabs(-1,-1,st); // assigning tabs stops
// assigning text with tabs (#9)
RichMemo1.Lines.Add('Compte'#9'Label..................................'#9'Credit'#9'Debit');
while not lignesDeSaisie.EOF do
begin
NnnnLignes := NnnnLignes+1;
Lllll := lignesDeSaisie.FieldByName('compte').AsString + #9 + lignesDeSaisie.FieldByName('label').AsString + #9 + FloatToStr(lignesDeSaisie.FieldByName('credit').AsFloat) + #9 + FloatToStr(lignesDeSaisie.FieldByName('debit').AsFloat) ;
////RichMemo1.Lines.Add('|----------------------------------------------------------------------');
RichMemo1.Lines.Add(Lllll);
lignesDeSaisie.Next;
end;
end;