Hola,
este código lo saqué en su día del club, sirve para que mientras vas escribiendo en un Edit te va autocompletando lo que te queda por escribir con la primera coincidencia que encuentra en la bbdd. Te lo pongo por si te sirve de algo.
Código Delphi
[-]
if key=8 then
begin
if contador>0 then
begin
contador:=txtbusprov.SelLength+1;
contador:=length(txtbusprov.text)-contador;
end;
end
else
begin
contador:=length(txtbusprov.text)-txtbusprov.sellength;
end;
adoquery2.Close;
adoquery2.SQL.Text:='SELECT * FROM proveedores WHERE proveedor LIKE ' + quotedstr(txtbusprov.Text + '%');
adoquery2.Open;
if adoquery2.IsEmpty=false then
begin
if txtbusprov.text<>'' then
begin
texto:=txtbusprov.text; campo:=adoquery2.FieldByName('proveedor').AsString; Delete(campo,1,length(txtbusprov.text)); txtbusprov.Text:=texto + campo; txtbusprov.SelStart:=contador; txtbusprov.SelLength:=50; end;
end;
Saludos.