como lleno un DBLookupComboBox

[MOCOSO07]

hola buen dia compañeros!!

quiero hacer lo siguiente pero me fuciona quiero ver si me pueden ayudar

tengo una tabla de areas academicas y una de planes de estudios y su firebird y delphi 5

tengo un DBLookupComboBox y un combobox dependiendo del plan de estudios(solo hay dos 2007 y BIS 37) que seleccione en el combo quiero que me mande solo las areas que pertenecen a ese plan espero y me de a entender(las areas academicas del plan 2007 si id es de 4 caracteres y las del bis 37 son de tres)

gracias por su atencion el codigo es el siguiente

Código Delphi [-]
if cmb_plan.Text = '2007' then
  begin
    frm_DataModule.qry_Area_Academica.close;
    frm_DataModule.qry_Area_Academica.SQL.Clear;
    frm_DataModule.qry_Area_Academica.SQL.Add('select *');
    frm_DataModule.qry_Area_Academica.SQL.Add('FROM AREA_ACADEMICA');
    frm_DataModule.qry_Area_Academica.SQL.Text;
    frm_DataModule.qry_Area_Academica.FetchAll;
    frm_DataModule.qry_Area_Academica.Open;

    while not  frm_DataModule.qry_Area_Academica.Eof do
    begin
      cuatro := Length(trim(frm_DataModule.qry_Area_Academica.Fields[0].AsString));
      if cuatro = 4 then
      begin
      DBLookupComboBox6.KeyValue := frm_DataModule.qry_Area_Academica.Fields[0].AsString;
      end;
      frm_DataModule.qry_Area_Academica.Next;
    end;
     end
     else
     begin
     end;

una ves mas muchas gracias