procedure TForm1.Button1Click(Sender: TObject);
var
st : TTabStopList;
i : integer;
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[i].Offset:=i*72;
RichMemo1.SetParaTabs(-1,-1,st); // assigning tabs stops
// assigning text with tabs (#9)
RichMemo1.Lines.Add('hello'#9'world'#9'to'#9'columns');
RichMemo1.Lines.Add('does'#9'it'#9'look'#9'good'#9'?');
RichMemo1.Lines.Add('tab'+#9+'is'+#9+'character'+#9+'9');
end;