Как узнать выравнивание текста в RichEdit?

[Kib]

Всем привет. Собственно такой вопрос:
Как можно узнать какое выравнивание у текста стоит?
Например мне нужно так что бы, если строка выравнивается по правому краю, то по краям прописать <div align=right>...</div>. Как прописать я знаю:

RichEdit1.Lines.Strings[1]:='<div align=right>' + RichEdit1.Lines.Strings[1] + '</div>';

Но как узнать по какому краю выравнивается текст?

[Terran]

Если не ошибаюсь, то так:

If RichEdit1.Paragraph.Alignment = TaLeftJustify Then
...
If RichEdit1.Paragraph.Alignment = TaRightJustify Then
...
If RichEdit1.Paragraph.Alignment = TaCenter Then

[Kib]

Terran СПАСИБО БОЛЬШОЕ!!! А по индексу строки можно?

[Terran]

Можете перевести каретку в нужную строку и проверить вышеприведённым кодом...

[Kib]

Не получается перевести карету
Делаю так:

RichEdit1.CaretPos.Y:=1;

так не работает, ругается.

[Kib]

Все, сделал. Спасибо еще раз!

for i:=0 to RichEdit1.Lines.Count do
begin
   RichEdit1.CaretPos:=Point(1,i);
   If RichEdit1.Paragraph.Alignment = TaLeftJustify Then
   RichEdit1.Lines.Strings[i]:='<div align=left>' + RichEdit1.Lines.Strings[i] + '</div>';
...
end;

[artemavd]

If RichEdit1.Paragraph.Alignment = TaLeftJustify Then
...
If RichEdit1.Paragraph.Alignment = TaRightJustify Then
...
If RichEdit1.Paragraph.Alignment = TaCenter Then

А вот у меня ругается компилятор и выдает эту ошибку:

[Error] Unit1.pas(150): Incompatible types: 'TParaAlignment' and 'TAlignment'

может еще чего прописать надо?