Fehlermeldung bei begin und then

[turboPASCAL]

Delphi-Quellcode:

procedure Kontrolle(const Target: TStringgrid);
var a, b :integer;
begin
  y:=-1;
  if //  hier fehlt die Bedingung//
    begin //

Delphi-Quellcode:

procedure ...
begin
  if a = b then
  begin
    // Ja, a = b
  end else
  begin
   //nein, a ist ungleich b
  end;
end;