TRadioGroup select i run time problemer.

unit Figur103;

interface

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

type
  TForm103 = class(TForm)
    Label1: TLabel;
    Studio: TRadioGroup;
    Label2: TLabel;
    ESC: TButton;
    Tekst: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    function Rette(Dato: TDateTime; F: TCoordinates): TModalResult;
  end;

var
  Form103: TForm103;

implementation

{$R *.dfm}

procedure TForm103.FormShow(Sender: TObject);
begin
  Form103.Top  := Unit59.Top + 40;
  Form103.Left := Unit59.Left + 200;

end;

function TForm103.Rette(Dato: TDateTime; F: TCoordinates): TModalResult;
begin
  Label3.Caption  := Global.UgeDag.Items[DayOfWeek(Dato + F.X)];
  Label1.Caption  := DateToStr(Dato + F.X);                                // Dato der henvises til.
  Label2.Caption  := IntToStr(F.Y) + ':00 - ' + IntToStr(F.Y + 1) + ':00';  // Tidspunkt der henvises til.

  Studio.ItemIndex := F.Z;                                                  // Studio der henvises til

//  Label4.Caption := IntToStr(F.Z);

  Form103.ShowModal;
  Rette := ModalResult;
end;

procedure TForm103.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_Cancel  : ModalResult := MrCancel;


  else

  end;
end;

end.

TCoordinates er en record med tre numeriske værdier, X, Y, Z.
Studio er en TRadioGroup, og indeholder fire linier.
Formen åbnes fra et andet sted via public function Rette().
Det er linien "Studio.ItemIndex := F.Z;" der driller.
//  Label4.Caption := IntToStr(F.Z); er sat på for at se om F.Z overfører den rigtige værdi, og det gør den.
Første gang formen vises, reagerer "Studio.ItemIndex := F.Z;" korrekt, men de næste gange gør den ikke.
Hvad gør jeg forkert?