Prüfung auf leere Zelle endet nicht nach Fund

[MisterKnister]

Bitte nicht lachen
Ich habe ein variables StringGrid.
Bevor das Programm beendet wird, soll geprüft werden ob die komplette Tabelle ausgefüllt wurde.
Falls dies nicht der Fall ist, soll eine Nachfrage gestellt werden, ob man trotzdem das Programm verlassen will
oder eben nicht.
Dies funktioniert zwar soweit, allerdings wird die Nachfrage bei jeder leeren Zeile gestellt.
(Egal ob "JA" oder "NEIN" betätigt wird).
Da nach einer, ja eh schon die Bedingung erfüllt ist, sollte die Nachfrage also nur für eine/die erste leere Zelle gestellt werden.
Nun die Frage, welches triviale Kommando ich vergessen habe.
Vielen Dank im Voraus!

Delphi-Quellcode:

procedure TForm1.Close1Click(Sender: TObject);
var
i : Integer;
b : Integer;
begin
for i := 0 to StringGrid1.RowCount-1 do
  if StringGrid1.Rows[i].IndexOf('') <> -1 then
  b:= Application.MessageBox('Cells not filled completely. Do you want to leave anyways?','',4+32);
    if b = IDYES then Close;
end;