StringGrid, проблема в программе

[Nancy90]

Задача такая:
В своих заявлениях в университет абитуриенты указали номер школы, школьные оценки по математике, физике и литературе, пол и информацию в школьных олимпиадах по информатике. По заданной последовательности за-явлений определить номер школы, которую окончила отличница, подавшая своё заявление в университет первой из всех победителей олимпиад.

Вот код, который получился, Подскажите как реализовать данное условие по другому? Так как данный код выводит не совсем корректные результаты, хотя и работает...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure StringGrid1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
StringGrid1.Cells[1, 0] := 'Школа';
 StringGrid1.Cells[2, 0] := 'Мат-ка';
 StringGrid1.Cells[3, 0] := 'Физика';
 StringGrid1.Cells[4, 0] := 'Лит-ра';
 StringGrid1.Cells[5, 0] := 'Пол';
 StringGrid1.Cells[6, 0] := 'Победа в олимпиаде';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i, School: integer;
begin
for i := 1 to StringGrid1.RowCount-1 do
begin
  if ((StringGrid1.Cells[5, i] = 'Ж') and
      (StrToInt(StringGrid1.Cells[2, i]) = 5) and
      (StrToInt(StringGrid1.Cells[3, i]) = 5) and
      (StrToInt(StringGrid1.Cells[4, i]) = 5) and
      (StringGrid1.Cells[6, i] = 'Да')) then
   School := School + StrToInt(StringGrid1.Cells[1, i]);
end;
ShowMessage('Номер школы' + IntToStr(School))
 end;
procedure TForm1.Button3Click(Sender: TObject);
var
 i: integer;
begin
for i := 1 to StringGrid1.RowCount-1 do
  StringGrid1.Rows[i].Clear;
 StringGrid1.RowCount := 2;

end;

end.

[Zer0]

      (StringGrid1.Cells[6, i] = 'Да')) then
   School := School + StrToInt(StringGrid1.Cells[1, i]);
end;
ShowMessage('Номер школы' + IntToStr(School))

немного изменить этот кусочек на такой:

      (StringGrid1.Cells[6, i] = 'Да')) then begin
       ShowMessage('Номер школы' + StringGrid1.Cells[1, i]);
       break;
   end;
end;

[Nancy90]

Ошибку почему то выдает(( а в моем коде он не считывает если допустим 2 девочки подали заявление и обе отличницы, а просто плюсует школы и все...