[sycva]

Собственно сделал вывод всех значений так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.btn1Click(Sender: TObject);       begin    if  (k=0)  then lbl3.Caption:='Îøèáêà'  else if (g=0)  then lbl3.Caption:='Îøèáêà'  else if (h=0)  then lbl3.Caption:='Îøèáêà'  else if (w=0)  then lbl3.Caption:='Îøèáêà'  else  begin a:=(u*x/(r+3)+5)/abs(R-y/k);  b:= Sin(z+U)/(2.46+a*R)+power(r,1/5)/(25*k);  lbl3.Caption:='A='+format('%6.3e',[a]);  lbl4.Caption:='B='+format('%6.5e',[b]);  lbl5.Caption:=format('%6.4f',[a]);  lbl6.Caption:=format('%6.3f',[b]);  lbl10.Caption:='U='+IntToStr(U);  lbl12.Caption:='R='+IntToStr(R);  lbl14.Caption:='z='+FloatToStr(z);  lbl16.Caption:='k='+FloatToStr(k);

но потом задание усложнили, сказав, что нужно сделать вывод в Olecontainer, допустим, в Word

как мне сделать такой вывод??