Delphi Birbiriyle Etkileşimli DBlookupcombox yardım

[gunesonline]

merhaba linkini verdiğim videodaki örneği Database den dblookup combox ile nasıl yapabilirim
şimdiden teşekkürler
http://www.youtube.com/watch?v=LjqB2O5q_zw

kısacısı ili seçtğim zman o ilin ilçeleri gelicek şekilde

manuel eklemeden databaseden alıcak il ve ilçe adlarını
kullandığım tablo Sql serverdeki

[brs]

Selam, Resimleri bu şekilde büyük olarak ekleme sadece linki vermeniz yeterli olacaktır adminden uyarı almadan düzeltin bence...

Kod: Tümünü seç

procedure TForm3.COMBOBOXChange(Sender: TObject);
begin
  ListView1.Items.Clear;
  with Arsiv do
  begin
    Close;
    SQL.Text := 'Select * From Ilce where ILLER like ' +  QuotedStr('%' + COMBOBOX.Text + '%') + ' order by SIRANO DESC';
    Open;
    while Not Eof do
    begin
      with ListView1.Items.Add do
      begin
        SubItems.Add(FieldByName('ADI').AsString);
        Next;
      end;
    end;
  end;
end;

Not: Combobox itemse illeri ekle ve comboboxdan örnek Ankara'yı seçtiğinde otomatik olarak Ankara bağlı ilçelerin listelerin gelir...