despliegue de datos en dbgrid conforme escribo dato a buscar

[alexglez1255]

Hola buen dia a todos tengo ya varios dias atorado en hacer que a la hora de buscar el nombre de un cliente en mi tabla clientes conforme lo escribo me muestre en un dbgrid todos los registros que se aproximen a lo escrito este el codigo del Tedit

Código Delphi [-]
procedure Taltadecontratos.edtBuscarCteChange(Sender: TObject);
var
 cadenaAbuscar:String;
 codcliente:Integer;
begin

CadenaAbuscar:=edtBuscarCte.Text;
if (cmbBusqCte.ItemIndex<>1)and(CadenaAbuscar<>'') and (not TryStrToInt(cadenaAbuscar,codcliente)) then
  begin
   raise Exception.Create(
  'Solo introducir numeros por favor para buscar en campo de '+cmbBusqCte.Text);
  end;

//Buscar numero de cliente

if cmbBusqCte.ItemIndex=0 then
  logicanegocio.CDSclieCOD.Locate('COD_CLIENTE',edtBuscarCte.Text,[loPartialKey]);
if cmbBusqCte.ItemIndex=1 then
  logicanegocio.CDSclieCOD.Locate('CLIENTE',edtBuscarCte.Text,[loPartialKey]);
end;

y tengo un dbgrid que esta realcionado con el CDScliecCOD usando un parametro bajo el campo cliente me explico..?
si funciona pero a la hora de llamar la forma me aparecen todos los clientes y yo quiero que a la hora de lllamar la forma no aparesca nada en la refilla y solo hasta que se lo escriba .. me explico..?

apreciare cualquier sugerencia tengo la version de delphi 6