Fehlermeldung bei begin und then

[Helmi]

Machs halt so:

Delphi-Quellcode:

procedure Kontrolle(const Target: TStringgrid); 
var a, b :integer; 
    gefunden: Boolean;
begin 
  y:=-1; 
  gefunden := false;

  begin
    For x := 1 to 6 do 
      begin 
        For a := 1 to 4 do 
          begin 
            For b := 1 to 4 do 
              begin 
                y:=a+b; 
                gefunden := Target.cells[x,y] = IntToStr(Spieler); 

                If gefunden then 
                  break;
              end;
            If gefunden then
              break; 
          end; 
        If gefunden then
          break;
      end; 
  end 
  
  If not gefunden then
    showmessage('Spieler' +IntToStr(Spieler) +'hat gewonnen!')); 
end;

[Edit]
aus dem Stregreif geschrieben, kann leicht fehlerhaft sein....