Buscar parte de un texto en campo de tabla

[jadelphi]

Hola, para buscar el texto contenido en Edit1 ('Edit1.text' ) en el campo 'Campo1' de la tabla 'Tabla1' utilizo la siguiente instrucción ...


if not Tabla1.Locate(Campo1, Edit1.Text,
[loCaseInsensitive, loPartialKey]) then
MessageDlg('No se encontraron registros.', mtInformation, [mbOK], 0);

pero así me situa en el primer registro que empieza por 'Edit1.text' y a mi me gustaría que me mostrara en el listbox todos los registos que contengan
'Edit1.text' en 'Campo1'.

Muchas gracias.

Salu2.