Уменьшение размера шрифта в коде

Ormuz

Здравствуйте.
Имеется такого вида код:
procedure Memo9OnBeforePrint(Sender: TfrxComponent);
var
TestCode: string;
begin
TestCode := <Sample_Groups_Works."TestCode">;
if TestCode = '2700581' then
Memo10.Memo.Text := '12345'
else if TestCode = '2700582' then
Memo10.Memo.Text := '67890'
end;
Как сделать так чтобы 67890 было другого размера? Ну например 12345 10 размер шрифта, а 67890 7 размер шрифта.
Спасибо.

gpi

procedure Memo9OnBeforePrint(Sender: TfrxComponent);
var
TestCode: string;
begin
TestCode := <Sample_Groups_Works."TestCode">;
if TestCode = '2700581' then
  begin
     Memo10.Memo.Text := '12345'
     Memo10.Font.Size := 10;
  end
else if TestCode = '2700582' then
  begin  
    Memo10.Memo.Text := '67890';
    Memo10.Font.Size := 7;
  end;
end;