Lookup en Dbgrid

[[Caral]]

Hola
Perdon pero no me sale el codigo legible en esto, lo intento de nuevo:

Código Delphi [-]
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin
ADOTable1.Filtered := False;
Filtro := 'Id_Emp Like '+Edit1.Text;
ADOTable1.Filter := Filtro; 
ADOTable1.Filtered := True
end
else
ADOTable1.Filtered := False;
end;