problema con filter

[marcoszorrilla]

Según pruebas que acabo de realizar en Paradox solo funciona para los campos en que les pasemos como comienzan, no va ni con terminan, ni contienen.

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filter:='Company ='+QuotedStr(Edit1.text+'*') ;
ShowMessage(table1.Filter);
Table1.Filtered:=True;
end;

Un Saludo.