Работа со вкладками

max:=strtoint(sg1.cells[0,k-1]);
for i:=0 to sg1.RowCount-1 do
for j:=0 to sg1.Colcount-1 do begin
if strtoint(sg1.Cells[j,k-1])>max then max:=Strtoint(sg1.cells[j,k-1]);end;
label1.caption:=inttostr(max);

min:=strtoint(sg1.cells[0,k-1]);
for i:=0 to sg1.RowCount-1 do
for j:=0 to sg1.Colcount-1 do begin
if strtoint(sg1.Cells[j,k-1])<min then min:=Strtoint(sg1.cells[j,k-1]);end;
label2.caption:=inttostr(min);

For i:=1 to length(t) do
if t[i]='С' then
inc(k5);
Edit3.text:=inttostr(k5);

max:=strtoint(sg1.cells[0,k-1]);
for i:=0 to sg1.RowCount-1 do
for j:=0 to sg1.Colcount-1 do begin
if strtoint(sg1.Cells[j,k-1])>max then max:=Strtoint(sg1.cells[j,k-1]);end;
label1.caption:=inttostr(max);

// ищет самый дорогой товар
 
max:=strtoint(sg1.cells[2,1]); // сам в [ ] выставишь номер столбца где у тебя цена
 
for i:=1 to sg1.RowCount-1 do
 begin
 
if strtoint(sg1.Cells[2,i+1])>max then max:=Strtoint(sg1.cells[2,i]);
 
end;
 
 
for i:=1 to sg1.RowCount-1 do
 begin
 
if strtoint(sg1.Cells[2,i+1])=max then memo1.lines.add(inttostr(max));
 
end;

uses DateUtils ;//пропиши в модулях
 
for i:=1 to sg1.RowCount-1 do
 begin
 
if strtoint(sg1.Cells[3,i+1])>=DateTostr(Date) then sg3.Cells[2,i];
 
end;