Problem mit Combobox.Items.AddObject()

[Borschti]

Hi,

Ich versuche einer ComboBox als Spalteninhalt den Feldinhalt einer Tabelle zu übergeben, dazu kommt noch das Ich der ComboBox mit AddObject() den Feldinhalt einer zweiten Spalte übergeben möchte.
Das klappt so weit auch ganz gut, nur habe Ich leider das Problem, dass wenn Ich auf das Object zugreife mir MANCHMAL eine EAccessViolation angezeigt wird, das passiert aber nicht bei jedem Eintrag in der ComboBox.
Ich habe schon alles mögliche ausprobiert, Ich weiß nicht ob das an dem Tabellenfeld liegt oder an meinem Code

Hier ist mein Code, Ich weiß einfach nicht mehr weiter. Hilfe, bitte

Die ComboBox_fuellen procedure wird in der zweiten Unit erzeugt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, VisiComboBox, Unit3, l_TreiberInit, DB, vddDataSet,
  vddReferenceDataSet, vddCustomQuery, vddQuery, vddDataSource;

type
  TForm1 = class(TForm)
    VisiComboBox1: TVisiComboBox;
    VddQuery1: TVddQuery;
    procedure FormCreate(Sender: TObject);
    procedure VisiComboBox1Select(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var Spalten : TStringList;
begin

  Treibermodule.LoginDialog.Execute;

  Spalten := TStringList.Create;

  Spalten.Add('AdrNr');
  Spalten.Add('AngelegtAm');

  ComboBox_fuellen(VisiComboBox1, VddQuery1, Spalten, 'adress');
end;

procedure TForm1.VisiComboBox1Select(Sender: TObject);
begin

  showmessage(String(VisiCombobox1.Items.Objects[VisiCombobox1.ItemIndex]));

end;

end.

Hier die zweite Unit:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, vddDataSource, vddDataSet, vddReferenceDataSet,
  vddIndexedDataSet, vddCustomTable, vddTable, Grids, DBGrids, VisiDbGrid,
  StdCtrls, ExtCtrls, ComCtrls, VisiStatusBar, vddCustomQuery, vddQuery, Math,
  Menus, VisiListBox, VisiDbListBox, VisiComponent, VisiDbLookupControl,
  VisiDbLookupListBox, DBCtrls, VisiComboBox;

  procedure ComboBox_fuellen(ComboBox : TVisiComboBox; VddQuery : TVddQuery;
                             Spalten : TStringlist; Tabelle : String);

  type
    TPoolData = class(TObject)
  private
  public
    ID: String;
    Bezeichnung: string;
  end;

implementation

procedure ComboBox_fuellen(ComboBox : TVisiComboBox; VddQuery : TVddQuery;
                           Spalten : TStringlist; Tabelle : String);
var i : Integer;
    PoolData : TPoolData;
begin

  PoolData := TPoolData.Create;

  VddQuery.SQL.Clear;
  VddQuery.SQL.Add('Select ');

  for i := 0 to Spalten.Count -1 do
    begin
     VddQuery.SQL.Add(Spalten.Strings[i]+ ', ');
    end;

  VddQuery.SQL.Add('From ' + Tabelle);
  VddQuery.SQL.Add('Order By ' +Spalten[0]);
  VddQuery.Open;
  VddQuery.First;

  for i := 0 to VddQuery.RecordCount - 1 do
    begin
      Combobox.Items.AddObject(VddQuery.FieldByName(Spalten[0]).asString, TObject(VddQuery.Fieldbyname(Spalten[1]).asString));
      VddQuery.Next;
    end;

  Pooldata.Free;
  Spalten.Free;

end;

end.

Ich hoffe Ihr könnt mir helfen, schonmal danke für alle Antworten.

mfg
Bossi