procedure Memo3OnBeforePrint(Sender: TfrxComponent);
var
s: String;
begin
with Memo3, Engine do
begin
s := COPY(<Изделие: система>,1,LENGTH(<Изделие: система>));
while POS(#13,s) <> 0 do
begin
s := COPY(s, 1, (POS(#13,s)-1)) + ' - ' + COPY(s, (POS(#13,s)+2),9999);
end;
Memo.text := 'Изделие [Изделие: номер] [Изделие: ширина] x [Изделие: высота]'+#13+s;
end;
end;