Как сделать поиск значений больше 300000? Куда вставить в моем коде?

procedure TForm2.N4000001Click(Sender: TObject);
var i,j,k:integer;
S:string;
begin
s:=Edit3.Text;
with sg do
 begin
  i:=FixedRows;
  k:=0;
  while (i<RowCount)and(k=0) do
   begin
    j:=FixedCols;
    while(j<ColCount)and(Cells[j,i]<>s) do  inc(j);
    if j<ColCount then k:=1 else inc(i);
   end;
 end;
if k=0 then ShowMessage('такого значения нет') ;
if  not TryStrToInt(Edit3.Text, k) then // ??? TryStrToFloat ???? ????? ? ???????
    ShowMessage('введена буква')
else
for i:=1 to sg.RowCount do
begin
if edit3.text=sg.cells[6,i] then
begin
form4.Show;
k:=form4.sg_1.RowCount-1;
form4.sg_1.Cells[0,k]:=sg.cells[0,i];
form4.sg_1.Cells[1,k]:=sg.cells[1,i];
form4.sg_1.Cells[2,k]:=sg.cells[2,i];
form4.sg_1.Cells[3,k]:=sg.cells[3,i];
form4.sg_1.Cells[4,k]:=sg.cells[4,i] ;
form4.sg_1.Cells[5,k]:=sg.cells[5,i] ;
form4.sg_1.Cells[6,k]:=sg.cells[6,i] ;
form4.sg_1.Cells[7,k]:=sg.cells[7,i] ;
form4.sg_1.Cells[8,k]:=sg.cells[8,i] ;
form4.sg_1.RowCount:=form4.sg_1.rowcount+1;
end;   end;
end;

for i:=sg.fixedrows to sg.rowcount-1 do
if strtoint(sg.Cells[6,i])>300000 then вывод куда-то