Нужно, чтобы выполнилось заданное условие

procedure TForm2.Button4Click(Sender: TObject);
 var i,j,n:Integer;
begin
 for i:=1 to StringGrid1.RowCount-1 do begin
   StringGrid1.Cells[0,i]:='';
   StringGrid1.Cells[1,i]:='';
   StringGrid1.Cells[2,i]:='';
   StringGrid1.Cells[3,i]:='';
   StringGrid1.Cells[4,i]:='';
  end;
 AssignFile(f,'medals.dat');
 Reset(f);
 //strngrd1.RowCount:= filesize(f)+1;
 Seek(f,0);
 i:=1;
 while not Eof(f) do begin
   with data do begin
   read(f, data);
   StringGrid1.Cells[0,i]:=nazv;
   StringGrid1.Cells[1,i]:=obiem;
    StringGrid1.Cells[2,i]:=datasozd;
    StringGrid1.Cells[3,i]:= data.kolvoobr;
    StringGrid1.Cells[4,i]:= data.dataobr;
   StringGrid1.RowCount:= filesize(f)+1;
   Inc(i);
  end;
 end;
 CloseFile(f);
 AssignFile(f,'medals.dat');
 Rewrite(f);
 Seek(f,0);
 with data,StringGrid1 do begin
  i:=1;
  for j:=1 to StringGrid1.RowCount-1 do begin
  if edit7.text=data.nazv then begin
  nazv:=Cells[0,j];
  obiem:=Cells[1,j];
  datasozd:=Cells[2,j];
  kolvoobr:=Cells[3,j];
  dataobr:=edit9.text;
 
   seek(f,filesize(f));
   write(f, data);
   end; end;
  while not Eof(f) do begin
   read(f, data);
 StringGrid1.Cells[0,i]:=nazv;
   StringGrid1.Cells[1,i]:=obiem;
  StringGrid1.Cells[2,i]:=datasozd;
    StringGrid1.Cells[3,i]:= data.kolvoobr;
 StringGrid1.Cells[4,i]:= data.dataobr;
   StringGrid1.RowCount:=i+1;
 
 i:=1+i;
 end;  end;
 seek(f,0);
 
 end;