[ecfisa]

Hola kurono.

A ver si interpreté lo que buscas hacer...

Probá este código en el evento OnChange del TComboBox:

Código Delphi [-]
...
begin
  with Frm_DM.CS_BA do
  begin
    if ComboBox1.Text > '' then
    begin
      Close;
      SQL.Clear;
      SQl.Add('SELECT ORDEN, ARTICULOS,DESCRIPCION, UNIDAD, CANTIDAD, FECHAINICIO');
      SQL.Add('FROM ARTICULOS WHERE ARTICULOS LIKE :PVALOR');
      ParamByName('PVALOR').AsString := ComboBox1.Text+'%';
      Open;
      while not eof do
      begin
        ComboBox1.Items.Add(FieldByName('NAME').AsString);
        Next;
      end;
      ComboBox1.AutoDropDown := True;
      ComboBox1.DroppedDown  := True;
    end
    else
      ComboBox1.Items.Clear;
  end;
end;

Saludos.