Richedit papagraf align sorunu

[exterminater]

Arkadaşlar herkese selam. Richedit alt alta girilen yazıların özelliklerini bir butona basıldıktan sonra değiştirmek istiyorum. Öncelikle girilen her satırı bir değişkene alıyorum. REdit i sildikten sora da her satıra ayrı ayrı özellikler uyguluyorum. Tek sorun her satırın ayrı ayrı hizalanamaması. Diğer bütün özellikler doğru. Hizalama satırı mantıksal olarak doğru geliyor bana fakat hizalamaları saçma sapan bir şekilde yapıyor. Bu konuda yardımlarınızı bekliyorum. Şimdiden teşekkürler. İyi çalışmalar...

Kod: Tümünü seç

button onclick;

i:=richedit1.Lines.Count;k:=0;
for x:=0 to i do
begin
bumf[x]:=richedit1.Lines[x];
end;

RichEdit1.Clear;//RE ye girilenleri sil

//yeni özelliklerle boş olan RE ye yaz
with RichEdit1 do begin
for x:=0 to i do
begin

//***** MAVİ *****
if k=0 then
begin
paragraph.Alignment:=taLeftJustify;
Paragraph.Numbering:=nsbullet;
selattributes.Color:=clblue;
SelAttributes.Size:=size;size:=size+1;
SelAttributes.Style:=[fsbold];
SelText:=bumf[x];
end//endif
else
//*****YEŞİL*********

if k=1 then
begin
paragraph.Alignment:=taRightJustify;
Paragraph.Numbering:=nsbullet;
selattributes.Color:=clgreen;
SelAttributes.Size:=size;size:=size+1;
SelAttributes.Style:=[fsitalic];
SelText:=bumf[x];
end//endif
else
//******KIRMIZI********

if k=2 then
begin
paragraph.Alignment:=tarightJustify;
Paragraph.Numbering:=nsbullet;
selattributes.Color:=clred;
SelAttributes.Size:=size;size:=size+1;
SelAttributes.Style:=[fsunderline];
SelText:=bumf[x];
end//endif
else
//******SIYAH********

if k=3 then
begin
paragraph.Alignment:=taleftJustify;
Paragraph.Numbering:=nsbullet;
selattributes.Color:=clblack;
SelAttributes.Size:=size;size:=size+1;
SelAttributes.Style:=[fsbold];
SelText:=bumf[x];
end;//endif

k:=k+1;//SATIRI TUTAN DEGERI BİR ARTTIR

//HER SATIRDAN SONRA 1 BOŞLUK VER (#13 = ENTER)
if x=i then break else SelText:=#13;

end;//< for x:=0 to i do > döngüsü
end;//end with

[/i][/b]