Frage zu Pointer

[bwolf]

Hi all,

folgendes Problem:
Ich habe ein JvExpress Komponente. Dieser Komponente füge ich zur Laufzeit JvExpressButtons hinzu.
Den hinzugefügten Buttons gebe ich über die Data-Eigenschaft Pointer vom Typ integer mit.

Nun würde ich gerne die Werte der Pointer wieder auslesen, und das klappt nich so recht.
Hier mal ein bisschen Code:

Delphi-Quellcode:

// JvExpress zur Laufzeit die Buttons hinzufügen...
procedure TForm1.FormShow(Sender: TObject);
var
  jahr : integer;
begin

  while not DataModule1.q_projekt.Eof do
  begin
    JvExpress1.AddButton;
    jahr := 10;
    JvExpress1.Buttons[JvExpress1.ButtonCount-1].Data := @jahr;
    DataModule1.q_projekt.Next;
  end;
end;

// Bei Click auf einen TButton soll der Wert eines JvExpressButtons ausgelesen werden...
procedure TForm1.Button1Click(Sender: TObject);
var
  pJahr : ^integer;
begin
  pJahr := JvExpress1.Buttons[1].Data;
  showmessage(intToStr(pJahr^)); // Ausgabe ist nicht 10, sondern 15010828
end;

Könnt ihr mir da helfen ?
Danke im vorraus,
Ben