Delphi - combo con autorelleno

hola, queria preguntar si alguien tiene un componente combo lookup con busqueda incremental y autorelleno, en www.torry.net, hay uno pero es shareware, le agradezco,

Un truco para dar posibilidad de autrelleno a una combo es usando una API especifica para las listbox y combobox:
en el evento onchange del combo pones esto:

var j : integer; st : string;
st := combo1.Text;
j := combo1.Perform(CB_FINDSTRING, -1, LongInt(Pchar(st));
if j <> CB_ERR then
begin
combo1.ItemIndex := j;
combo1.SelStart := Length(st);
combo1.SelLenght := Length(combo1.Text) - Length(st)
end;

para la listBox cambias el CB por LB
por cierto a partir de Delphi6 las combobox y listbox tienen una propiedad llamada AutoComplete..