Работа с переменными в скрипте.

Igorek3

Доброго времени суток !
Вопрос таков: Как в кростабе ширине заголовка последней строки присвоить ширину предыдущих двух заголовков ???
Пишу так, но это не работает :-(

procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
Var
shirina: double;
begin
if (HeaderValues[0] = 'На руки') and
(HeaderValues[1] = 'Итого:' ) then
begin
shirina := Memo.Width;
Memo.Visible := False;
end;
if (HeaderValues[0] = 'На руки') then Memo.Width := Memo.Width + shirina;
end;