seltsames Verhalten von RadioGroups, Compilerfehler oder Userfehler?

[iphi]

Hiiilfeeee!

Ich habe eine Main Form mit zwei globalen Variablen, die auch in einer RadioForm mittels zwei Radiogroups verändert werden können. Im OnShow Event der RadioForm werden die RadioGroups auf die Statusvariablen gesetzt. Das funktioniert aber nicht zuverlässig. Hier ist mein Code:

Unit1.pas:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    NR1: integer;
    NR2: integer;
  end;

var
  Form1: TForm1;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
NR1:=3;
NR2:=3;
FormRadio.Visible:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:='NR1='+inttostr(NR1);
Label2.Caption:='NR2='+inttostr(NR2);
end;

end.

Unit2.pas:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormRadio = class(TForm)
    Radio1: TRadioGroup;
    Radio2: TRadioGroup;
    Label1: TLabel;
    procedure Radio1Click(Sender: TObject);
    procedure Radio2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRadio: TFormRadio;

implementation

uses Unit1;

{$R *.dfm}

procedure TFormRadio.Radio1Click(Sender: TObject);
begin
Form1.NR1:=Radio1.ItemIndex;
end;

procedure TFormRadio.Radio2Click(Sender: TObject);
begin
Form1.NR2:=Radio2.ItemIndex;
end;

procedure TFormRadio.FormShow(Sender: TObject);
begin
Radio1.ItemIndex:=Form1.NR1;
Radio2.ItemIndex:=Form1.NR2;
end;

end.

Problembeschreibung:
Drückt man den Button1 zum ersten mal, wird die FormRadio geöffnet und beide RadioGroups auf 3 gesetzt. Soweit ok.
Setzt man die RadioGroups händisch beide wieder auf 1, schließt die RadioForm und drückt den Knopf erneut, dann wird nur eine RadioGroup auf 3 gesetzt (im Debugger sieht man, dass die andere zwischenzeitlich auch auf 3 gesetzt wird, aber von irgendwo einen Klick wieder auf 1 bekommt und zurückgesetzt wird).???
Man kann das Spielchen mehrfach wiederholen. Es wird nicht immer dieselbe RadioGroup falsch gesetzt. Die wechseln ab!

Ich benutze Delphi6 Personal. Derselbe Fehler tritt aber auch bei Delphi7 Personal auf.
Was geht da vor?

Der komplette Quellcode ist auch angehängt.