Memo.frame.typ для каждой ячейки

outman

Хочу при повторяющихся значениях менять Typ у memo.
Сделал вот так

procedure Band4OnBeforePrint(Sender: TfrxComponent);
begin
   if Memo13.Text=Memo11.Text then
    Memo11.Frame.Typ:=3
 else
    Memo11.Frame.Typ:=15;
 Memo13.text:=Memo11.text;

везде значение typ=3.

memo13 лежит на хедере
memo11 лежит на Бэнде

ПОдскажите, как это правильно делается ?

outman

Решилось вот так

var
s:string;
procedure Band4OnBeforePrint(Sender: TfrxComponent);
begin
   if s=Memo11.Text then
    Memo11.Frame.Typ:=3
 else
    Memo11.Frame.Typ:=15;
 s:=Memo11.text;

[/quote]