Problem mit Zugriff auf ComboBox Inhalt

[Hansi]

Lösung war!

Delphi-Quellcode:

procedure TL_aendern.FormCreate(Sender: TObject); 
var 
  stext : String;
  iID  : Integer; 
begin 
  Query1.Close; 
  Query1.DatabaseName:='.\DB\';
  ComboBox1.Style := csDropDownList;
  With Query1 do begin 
     Active := False; 
     SQL.Add('Select L_Name,L_ID FROM Lieferanten ORDER by L_Name'); 
     Open; 
     While Not EOF do 
     begin 
       stext := FieldByName('L_Name').AsString;
       iID := FieldByName ('L_ID').AsInteger; 
       ComboBox1.AddItem(sText,TObject(iID));  // ID wird zu einem "Object" gecastet. 
       Next; 
     end; 
  end; 
end; 


procedure TL_aendern.ComboBox1Change(Sender: TObject); 
var 
  ID: Integer; 
begin 
  Edit1.Text:=ComboBox1.Items[ComboBox1.ItemIndex]; 
  ID:=Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); 
  With Query2 do begin 
    Close; 
    DatabaseName:='.\DB\'; 
    SQL.Text:='SELECT * FROM Lieferanten WHERE L_ID = '+#10+IntToStr(ID); 
    Open; 
    Edit2.Text:=FieldByName('L_ID').AsString; 
    Edit3.Text:=FieldByName('L_Name').AsString; 
    Close; 
  end; 

end;