Buscar Items en ListView

[asterion]

Hola, tengo un problema con una aplicacion, quisiera que el texto que ponga en un edit lo busque en un listview, he implementado el codigo que esta abajo sacado de torrys pero solo busca la cadena empezando desde el principio, yo quisiera que busca la cadena aunque este al medio del caption del item en listview. Por ejemplo si pongo en el edit:'uno' entonces lo encontrara en un item que el caption diga por ejemplo: 'cada vez que uno'.
en cambio el codigo que pongo abajo solo lo encuentra si pongo 'cada' osea si la caption empieza asi, no encuentra cadenas que esten al medio.
Espero dejarme entender :S

Les pongo el codigo:

procedure TForm1.Button1Click(Sender: TObject);
var
lvItem: TListItem;
begin
lvItem := ListView1.FindCaption(0, // StartIndex: Integer;
'99', // Search string: string;
True, // Partial,
True, // Inclusive
False); // Wrap : boolean;
if lvItem <> nil then
begin
ListView1.Selected := lvItem;
lvItem.MakeVisible(True);
ListView1.SetFocus;
end;
end;

Gracias por su ayuda...