Delphi - Filtro.

Como puedo hacer un filtro para que el resultado se despliegue en un dbgrid.
Tengo un componente tedit y quiero que conforme se teclee en el recuadro aparezca en el dbgrid el dato que se encuentre en la base de datos.
Ya se que todo lo debo de poner en el evento ONChange pero lo que necesito es el codigo para que haga esto.
Gracias!
estoy utilizando un Ttable para la base.

procedure TForm1.Filtrar;
begin
with Table1 do
begin
if Edit1.Text <> '' then
begin
if filtered = false then
begin
FilterOptions:=[foCaseInsensitive];
Filtered := true;
end; { if }

Filter:='Nombre = '+QuotedStr(Edit1.Text+'*');

end
else Filtered:=''; { if }
end; { with }
end;

Este procedimiento llamalo en el OnChange de tu TEdit y devuelve una busqueda incremental conforme el usuario está tipeando. Cualquier DBGrid conectado al DataSet de Table1se actualizará automáticamente.
En mi ejemplo yo supongo que tienes un campo llamado 'Nombre', cambialo para tu caso.