Combobox og ADOQuery

Hej,

Jeg fylder en combobox på følgende måde:

for i:=0 to ADOQuery1.RecordCount-1 do
  begin
  combobox1.Items.AddObject('ProduktionsOrdreNummer ' + 
    ADOQuery1.FieldByName('SalesProj').AsString,
    TOBject(ADOQuery1.FieldByName('SalesProj').AsString));
  ADOQuery1.next;
  end;

combobox1.ItemIndex := 0;


dernæst bruger jeg comboboxchange til at finde ProduktionsOrdreNummeret:



procedure TForm10.ComboBox1Change(Sender: TObject);
begin

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

end;


Ovenstående giver en EAccessViolation efter et eller 2 klik på comboboxen...

Hvorfor det??

Jeg har prøvet at sætte tal ind i comboxen manuelt og det fungerer fint??? Det er som om at problemet er knyttet til ADOQuery