Warum kompiliert Delphi diesen Codeabschnitt nicht???

[ustra]

Hallo,

es steht schon Code drin. Ich habe nur exit; reingeschrieben, damit es nicht zu unübersichtlich wird. Im Original sieht es so aus:

Delphi-Quellcode:

procedure TsicherungCad.kontrolle;
  begin
      if FindWindow(nil, 'CAD-Hauptprogramm') = 0
      then begin
        Sicherung.haupt_aktiv(false);
        Sicherung.sichern(sPfadLokal);
        if boNetz
        then
         Sicherung.sichern(sPfadNetz);
      end
      //Ansonsten warten, bis Cadkontrolle geschlossen ist
      else begin
        Sicherung.haupt_aktiv(true);
        TWarten.enabled:=true;
        SendStringTohandle(FindWindow(nil, 'CAD-Hauptprogramm'), 'Schließen');
      end;
  end;

Beste Grüße
Ulrich