Запись строки в Textbox с правой стороны

Unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms, system.threading;
 
type
  Form1 = class(Form)
    procedure button1_Click(sender: Object; e: EventArgs);
    procedure  textstr;
  
    procedure button2_Click(sender: Object; e: EventArgs);
    procedure Form1_KeyPress(sender: Object; e: KeyPressEventArgs);
    procedure button1_KeyPress(sender: Object; e: KeyPressEventArgs);
    procedure richTextBox2_KeyPress(sender: Object; e: KeyPressEventArgs);
    procedure button2_KeyPress(sender: Object; e: KeyPressEventArgs);
    procedure richTextBox1_KeyPress(sender: Object; e: KeyPressEventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    richTextBox1: RichTextBox;
    button1: Button;
    button2: Button;
    panel1: Panel;
    richTextBox2: RichTextBox;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
var st:boolean =false;
stth:boolean =false;
  ttt: thread;
implementation
 
//Процедура вывода нечетной строки
function nechet(var spr:string):string;
begin
Result:=spr;
end;
 
//Процедура обработки строки номер которой кратен 5
function krp(var spr:string):string;
var t,l:integer; vrss:string;
begin
vrss:='';
//вычисление середины строки
l:=round((length(spr))/2);
//взять вторую половину строки
for t:=l to length(spr) do begin
vrss:=vrss+(spr[t]);
end;
//взять первую половину строки
for t:=1 to l-1 do begin
vrss:=vrss+(spr[t]);
end;
//вывод результата
Result:=vrss;
end;
 
//Процедура вывода четной строки
function chet(var spr:string):string;
var s1:string;t:integer;
begin
//Переворачивание строки
for t:=length(spr) downto 1 do
         s1:=s1+copy(spr,t,1);  
//вывод результата
Result:=s1;
end;
 
procedure  Form1.textstr;
var S,Pr,razd,vrs,sps:string;
i,j,jmax,n :integer;
 a:array[1..100] of string;
 begin
razd := ':;.?!'; // строка разделителей слов 
  s:=richTextBox1.Text;
  richTextBox2.Clear;
  j:=1;pr:=''; n:=0;
  For i:=1 to length(s) do begin
  if n=0 then begin pr:=pr+s[i];
  //определение конца строки
   if   pos(s[i], razd) <>0 then 
    begin
    //если конец, то внести строку в массив
    a[j]:=pr;
    pr:='';
    j:=j+1;
   n:=1;
    end;
    end else n:=0;
 end;
 jmax:=j-1;
while true do
  begin
    if st = false then begin
 //<--Результативный текст--> 
 //обработка массива строк
 for j:=1 to jmax do begin
 //если нечетная строка и не кратная 5 тогда вызов процедуры nechet
  if (j mod 2 = 1 )  and (j mod 5 <>0) then sps:= nechet(a[j]);
   //если  строка кратная 5 тогда вызов процедуры krp
if (j mod 5 =0) then  sps:=krp(a[j]);
 //если четная строка тогда вызов процедуры chet
  if (j mod 2 = 0 ) then sps:=  chet(a[j]);
  richTextBox2.Text:=richTextBox2.Text+#13#10;
  for i:=1 to length(sps) do 
  richTextBox2.Text:=richTextBox2.Text+sps[i];
 end;
  end;
end; 
  
end; 
 
 
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
 begin
 //обработка нажатия
st:=false; 
//если уже происходит обработка в потоке, уничтожить поток
 if (stth=true) then  begin  ttt.abort;stth:=false;
 end;
 // вызов процедуры в отдельном потоке
  ttt := new thread(textstr);
  //запуск потока
  ttt.start;
stth:=true;
end;
 
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
  //зизменение статуса обработки на СТОП
   st:=true;
end;
 
procedure Form1.Form1_KeyPress(sender: Object; e: KeyPressEventArgs);
begin
//при нажатии ESC остановить обработку
  if e.KeyChar=#27 then  st:=true;
end;
 
procedure Form1.button1_KeyPress(sender: Object; e: KeyPressEventArgs);
begin
//при нажатии ESC остановить обработку
  if e.KeyChar=#27 then  st:=true;
  
end;
 
procedure Form1.richTextBox2_KeyPress(sender: Object; e: KeyPressEventArgs);
begin
//при нажатии ESC остановить обработку
  if e.KeyChar=#27 then  st:=true;
end;
 
procedure Form1.button2_KeyPress(sender: Object; e: KeyPressEventArgs);
begin
//при нажатии ESC остановить обработку
  if e.  KeyChar=#27 then  st:=true;
end;
 
procedure Form1.richTextBox1_KeyPress(sender: Object; e: KeyPressEventArgs);
begin
//при нажатии ESC остановить обработку
  if e.KeyChar=#27 then  st:=true;
end;
 
end.