[sycva]

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

Код:

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

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

[lmikle]

Вывод в Word - не значит вывол в OLEContainer.
Об использовании OLE-автоматизации (примеры работы с Word/Excel) см. в примерах на сайте - там много.

[sycva]

ой, извините, я неправильно понял задание

ТЕМА ЗАКРЫТА