[Delphist]

Подучите типы данных на досуге!!! (Помогает).
переменные в том же месте только вот так:

Код:

var
  Form1: TForm1;
  a1,a2,a3,max,max1:real;
c,r,c1,r1:integer;
a4,a5:real;

ииииии по button3

Код:

max:=0;
for c:=1 to StringGrid2.ColCount-1 do
for r:=1 to StringGrid2.RowCount-1 do
if StrToFloat(StringGrid2.Cells[c,r])>max then max:=StrToFloat(StringGrid2.Cells[c,r]);
Edit8.Text:=FloatToStr(max);
max1:=0;
for r1:=1 to StringGrid3.RowCount-1 do
if StrToFloat(StringGrid3.Cells[1,r1])>max1 then max1:=StrToFloat(StringGrid3.Cells[1,r1]);
a4:=max1;
Edit9.Text:=FloatToStr(a4);
max1:=0;
for r1:=1 to StringGrid3.RowCount-1 do
if StrToFloat(StringGrid3.Cells[2,r1])>max1 then max1:=StrToFloat(StringGrid3.Cells[2,r1]);
a5:=max1;
Edit10.Text:=FloatToStr(a5);
Edit11.Text:=FloatToStr(a4*StrToFloat(StringGrid1. Cells[3,1])+a5*StrToFloat(StringGrid1.Cells[3,2])-StrToInt(Edit7.Text));
if StrToFloat(Edit8.Text)> StrToFloat(Edit11.Text){max=StrToFloat(Edit8.Text) } then Memo1.Lines[0]:='Íå ñòîèò ïðîâîäèòü äîïîëíèòåëüíûå èññëåäîâàíèÿ,ïðèáûëü='+ Edit8.text
else Memo1.Lines[0]:='Ñòîèò ïðîâîäèòü äîïîëíèòåëüíûå èññëåäîâàíèÿ,ïðèáûëü='+ Edit11.text;

ОК???