Prozeduren

[Matze]

Nur als Tipp, ich weiß nicht, ob es bei dir zutrifft, aber es sieht ganz danach aus. Bevor du in einer Prozedure alle Controls aktivierst und in einer anderen die selbigen deaktivierst, übergib duch als Parameter den Status:

Delphi-Quellcode:

procedure Enable(Status: boolean);

{ ... }

procedure TForm1.Enable(Status: boolean);
begin
  Button1.Enabled := Status;

  {...}
end;

{ ... }

//Aufruf
Enable(true);

//oder auch
Enable(false);

Nachtrag: Dann hätte ich mir das Getippe ja sparen können, oder es hätte wenigstens ein roter Kasten kommen können, dass geantwortet wurde.