Combo de estados com delphi

Combo de estados com delphi para carregar cidades de acordo com estado selecionado

 with ibqSQLCidadeBase do
  try
    close;
    Active := False;
    SQL.Clear;
    SQL.Add('SELECT * FROM CIDADE WHERE CIDADE.COD_ESTADO = :ESTADO');
    ParamByName('ESTADO').Value := comboboxDoEstado.text;
    Active := True;
    open;

if  ibqSQLCidadeBase.RecordCount  = 0 then  //VERIFICA SE EXISTE UM REGISTRO
showmessage('Esse estado não existe')
else 
cboCidade.text := ibqSQLCidadeBaseFieldDaCidade.value;

  finally
  end;

Aula 4 - Delphi 7 + MySQL 4.1.22 + ComboBox alimentado em tempo de execução

 https://www.youtube.com/watch?v=aw2xXpQSncg