Formating in Turbo Vision, Вывод элемента с правого края Опции

[FX]

Помогите пожалуйста с одной маленькой (для меня) проблемой...
Мне нужно вывести записи на эран, где элементы "god" и "cena" должны выводится не с левого края а с правого своей области.
Элементы все string.
Знаю как в числовых элементах делается:
god,'':(11-length(god))
а с символьными не могу разобратся...

cena:string[8];
god:string[11];


Procedure TInterior.ReadFile;
    var k:integer;
        s,shapka:String;
        data:autopark;
        t:text;
begin
    PS:=New(PStringCollection,Init(100,10));
    seek(f,0);
    shapka:='       Название     |     Марка     |   Год   |  Кузов  |   цвет   |  цена   ';
    PS^.insert(NewStr(shapka));
    while not (EOF(f) or LowMemory) do
    begin
         read(f,data);
         with data do
         begin
              s:=nazvanie;
              while Length(s)<Lnazvanie do s:=s+' ';
              s:=s+marka;
              while Length(s)<Lnazvanie+Lmarka do s:=s+' ';
              s:=s+god;
              while Length(s)<Lnazvanie+Lmarka+Lgod do s:=s+' ';
              s:=s+kuzov;
              while Length(s)<Lnazvanie+Lmarka+Lgod+Lkuzov do s:=s+' ';
              s:=s+cvet;
              while Length(s)<Lnazvanie+Lmarka+Lgod+Lkuzov+Lcvet do s:=s+' ';
              s:=s+cena;
         end;
    if s<>' ' then PS^.Insert(NewStr(S));
    end;
    Location:=0;
end;

[Ozzя]

У меня здесь все вставляется в диалог, например:

PTestWin =^TTestWin;
  TTestWin = object (TDialog)
    Procedure HandleEvent(var Event: TEvent); Virtual;
    Procedure Draw; Virtual;
  end;

var
d:TestWin;
Далее идет вышеозначенный код
и затем
q:=DeskTop^.ExecView(d);

Но рекомендую почитать книжку по ТВ.