button.enable funktioniert nicht aus einer procedure heraus

[snt1965]

Liebe DP-Gemeinde,
derzeit muss ich ein Delphi 4-Programm , was mal unter Win98 lief auf Delphi XE3 unter Win7/64bit portieren.
Jetzt bin ich soweit, dass der Compiler ohne zu meckern drüberläuft. Beim Test bin ich auf einen Fehler gestoßen, den ich nicht so ganz verstehe.
Und zwar schalte ich 3 Buttons über button(x).enabled=true bzw. false ein/aus, um Fehlclicks des Users zu unterbinden. Da ich das öfters brauche, habe ich das Ein/Ausschalten der Buttons in eine procedure geschoben. Führe ich das Ein/Auschalten direkt an der entsprechenden Stelle im Quelltext aus, funktioniert es - aber nicht beim Aufruf über die procedure button_ein bzw. button_aus. Woran kann das liegen? Siehe den nachfolgenden Code-Auszug bei: RadioGroup1Click (ziemlich am Ende) aber auch an anderen Stellen, die dann noch weiter unten kommen. Ich habe auch schon einiges probiert z.B. mit application.processmessages, form1.refresh,.. und ähnliches. Hat aber nicht geholfen. Gehe ich im Schrittbetrieb durch, wird der Code auch ausgeführt aber nicht umgesetzt/dargestellt (Button wird nicht deaktiviert bzw. aktiviert). Unter Delphi 4 hat es aber funktioniert.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, StdCtrls, Menus, ExtCtrls, Grids, DBGrids, emrvar, LIBADX_TLB, CPort;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    MainMenu1: TMainMenu;
    Einzeltest1: TMenuItem;
    Label1: TLabel;
    Anschlsse2: TMenuItem;
    Netzteiltest1: TMenuItem;
    ReglerabgleichenundMewerteprfen1: TMenuItem;
    Mewerteprfen1: TMenuItem;
    Tastaturtesten1: TMenuItem;
    AnzeigeundLEDstesten1: TMenuItem;
    Relaistesten1: TMenuItem;
    Unterspannungserkennungtesten1: TMenuItem;
    CosphiUmschaltungtesten1: TMenuItem;
    PNETtesten1: TMenuItem;
    RadioGroup1: TRadioGroup;
    Button2: TButton;
    EDVNreinblenden1: TMenuItem;
    Label2: TLabel;
    Label58: TLabel;
    Label4: TLabel;
    Label59: TLabel;
    Label6: TLabel;
    Label60: TLabel;
    Label8: TLabel;
    Label61: TLabel;
    Label10: TLabel;
    Label62: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Prfdatenanzeigen1: TMenuItem;
    RadioGroup2: TRadioGroup;
    CheckBox2: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox28: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox30: TCheckBox;
    CheckBox31: TCheckBox;
    CheckBox32: TCheckBox;
    CheckBox33: TCheckBox;
    CheckBox34: TCheckBox;
    CheckBox35: TCheckBox;
    CheckBox36: TCheckBox;
    CheckBox37: TCheckBox;
    CheckBox38: TCheckBox;
    CheckBox39: TCheckBox;
    CheckBox40: TCheckBox;
    CheckBox41: TCheckBox;
    CheckBox42: TCheckBox;
    CheckBox43: TCheckBox;
    CheckBox44: TCheckBox;
    CheckBox45: TCheckBox;
    CheckBox46: TCheckBox;
    CheckBox47: TCheckBox;
    CheckBox48: TCheckBox;
    Edit1: TEdit;
    Monitor1: TMenuItem;
    LIBADX1: TLIBADX;
    LIBADX2: TLIBADX;
    Memo1: TMemo;
    ComPort1: TComPort;
    ComPort2: TComPort;
    ComPort3: TComPort;
    ComPort4: TComPort;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Anschlsse2Click(Sender: TObject);
    procedure ReglerabgleichenundMewerteprfen1Click(Sender: TObject);
    procedure Mewerteprfen1Click(Sender: TObject);
    procedure Tastaturtesten1Click(Sender: TObject);
    procedure AnzeigeundLEDstesten1Click(Sender: TObject);
    procedure Relaistesten1Click(Sender: TObject);
    procedure Unterspannungserkennungtesten1Click(Sender: TObject);
    procedure CosphiUmschaltungtesten1Click(Sender: TObject);
    procedure PNETtesten1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure EDVNreinblenden1Click(Sender: TObject);
    procedure Prfdatenanzeigen1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Monitor1Click(Sender: TObject);
    procedure Netzteiltest1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
end;

var
  Form1: TForm1;


implementation

{$R *.DFM}
uses pio_usb_box, pio_usb_var, ser_cport, fluke45, tools, emrtools, empser,
     emrdaten, emreinm, emranzta, emrrel, emrpnet;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then begin beep;Abbr:=true;end;
  if key=VK_RETURN then begin beep;OK:=true;end;
end;

procedure apm;
begin
 application.processmessages;
 if (GetKeyState(VK_Escape) and 128) = 128 then Abbr:=true;
 if (GetKeyState(VK_Return) and 128) = 128 then OK:=true;
end;

procedure button_ein;
begin
  with form1 do begin
   button1.enabled:=true;
   button2.enabled:=true;
   button3.enabled:=true;
  end;
end;

procedure button_aus;
begin
  with form1 do begin
   button1.enabled:=false;
   button2.enabled:=false;
   button3.enabled:=false;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   caption:=version;
   button1.enabled:=false;
   button2.enabled:=false;
   button3.enabled:=true;
   //Lese_USB_Nr;
   //Oeffne_USB_PIO_IN;
   //Oeffne_USB_PIO_OUT;
   //if init_serial(EMP,br19200,dbeight,sbOneStopBit) then exitcode:=0 else exitcode:=2;//Pnet
   //if init_serial(FlukeU,br4800,dbeight,sbOneStopBit) then exitcode:=0 else exitcode:=2;//Fluke SPG
   //if init_serial(FlukeI,br4800,dbeight,sbOneStopBit) then exitcode:=0 else exitcode:=2;//Fluke STROM
   label1.color:=clfuchsia;
   label1.Caption:=('Bitte EDV-Nr. wählen!');
   radiogroup2.Hide;
   leer;
   //openDatenfile;
   //LiesGrenzwerte;
   //RelAus;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject); //EDV-Nr. wählen
var i:smallint;
begin
  i:=form1.radiogroup1.itemindex;
  //Index: 0 = 20-50006 1 = 20-50007 2 = 20-50008 3 = 20-50009  4 = 20-50010
  EDV_NR:='';
  case i of
    0:begin
          EDV_NR:='20-50006';
          label1.caption:='ACHTUNG 230V werden auf unteren Trafo-Abgriff geschaltet!';
          Rel(9,EIN);
        end;
    1:begin
          EDV_NR:='20-50007';
          label1.caption:='ACHTUNG 230V werden auf unteren Trafo-Abgriff geschaltet!';
          Rel(9,EIN);
         end;
    2:begin
          EDV_NR:='20-50008';
          label1.caption:='ACHTUNG 230V werden auf unteren Trafo-Abgriff geschaltet!';
          Rel(9,EIN);
        end;
    3:begin
          EDV_NR:='20-50009';
          label1.caption:='';
          Rel(9,AUS);
        end;
    4:begin
          EDV_NR:='20-50010';
          label1.caption:='ACHTUNG 230V werden auf unteren Trafo-Abgriff geschaltet!';
          Rel(9,EIN);
        end;
  end;
  delay(500);
  radiogroup1.hide;
  button_ein; //das funktioniert nicht! darunter das Auskommentierte funktioniert
  //button1.enabled:=true;
  //button2.enabled:=true;
  label1.color:=clfuchsia;
  label1.caption:='Mit NETZ/CPU oder nur CPU starten !';
  if Abbr then exit;
end;