Delphi Registry

[Nise]

Hallo alle zusammen!

Habe ein kleines Problem mit der Registry und das lautet wie folgt:

Ich habe diese Prozedur und möchte sie mit in die Registry einbauen. Das heißt wenn ich auf checked clicke möchte ich das es beim neu starten des Programmes wieder gecheckt ist und das selbe mit der Suchfunktion und dem Label.

Delphi-Quellcode:

procedure TFmHaupt.WarengruppenSuchenExecute(Sender: TObject);
begin
   case TComponent(Sender).Tag of

    3303: begin
          WaGrWGNr.Checked := true;
          WaGrBezeichnung.Checked := false;
          WarSU1.Text := '';
          Label3.Caption := 'Warengruppen Nr.';
          WarSU1.Visible := True;
          WarSU1.OnChange := WarSU1Change;
          end;
    3304: begin
          WaGrWgNr.Checked := false;
          WaGrBezeichnung.Checked := true;
          WarSU1.Text := '';
          Label3.Caption := 'Bezeichnung';
          WarSU1.Visible := True;
          WarSU1.OnChange := WarSU2Change;
          end;
end;
end;

Ich habe es schon so probiert an die Registry abzuspeichern.

Delphi-Quellcode:

// yy Registry auslesen
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\ZVVerwaltung\DialogPosition\FMHaupt', true);

  TComponent(Sender).Tag := regist.ReadInteger('Checked3016');

// yy Registry einlesen
procedure TFmHaupt.FmClose(Sender: TObject; var Action: TCloseAction);
var regist : TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\ZVVerwaltung\DialogPosition\FMHaupt', true);

    regist.WriteInteger('checked3016', TComponent(Sender).Tag);

Ich habe es versucht über den TComponent(Sender) das funktioniert allesdiengs nicht! Kann mir jemand sagen ob ich überhaupt auf dem richtigen weg bin oder ob ich ganz falsch drann bin denn ich komme einfach nicht weiter!

Mfg und Danke im Vorraus

Denise
[EDIT=Luckie]Delphi-tags hinzugefügt. Beim nächsten Mal bitte selber machen. Danke.[/EDIT]