Не работает, что я делаю не так?
Вызов процедуры по нажатию кнопки, после отработки открывается форма frmReport.
procedure ReportGrunt (target: TObject; row: integer; Price: Double);
var Value, TareValue, TareSmall, TareBig, TareSmallCol, TareBigCol, Sum: Double;
NewCol: TNxTextColumn;
begin
Value:=TdbEdit(TAForm(target).FindComponent('tbGruntValueZapas')).Value;
TareSmall:=TdbEdit(TAForm(target).FindComponent('tbGruntTareSmall')).Value;
TareSmallCol:=TdbEdit(TAForm(target).FindComponent('tbGruntTareSmallCol')).Value;
TareBig:=TdbEdit(TAForm(target).FindComponent('tbGruntTareBig')).Value;
TareBigCol:=TdbEdit(TAForm(target).FindComponent('tbGruntTareBigCol')).Value;
TareValue:=TareSmall*TareSmallCol+TareBig*TareBigCol;
Sum:=Price*TareValue;
frmReport.tgReport.Columns.Add(NewCol);
frmReport.tgReport.Columns.Add(NewCol);
frmReport.tgReport.Columns.Add(NewCol);
frmReport.tgReport.Columns.Add(NewCol);
frmReport.tgReport.Columns.Add(NewCol);
frmReport.tgReport.AddRow(1);
frmReport.tgReport.Cells[0,row]:=TdbLabel(TAForm(target).FindComponent('lbGrunt')).Caption;
frmReport.tgReport.Cells[1,row]:=FormatFloat('# ###.00', Value);
frmReport.tgReport.Cells[2,row]:=FormatFloat('# ###.00', TareValue);
frmReport.tgReport.Cells[3,row]:=FormatFloat('# ###.00', Price);
frmReport.tgReport.Cells[4,row]:=FormatFloat('# ###.00', Sum);
end;