ListView, comportamiento extraño

[dison]

Saludos,

Tengo un listview que lo lleno con este código

Código Delphi [-]
var
  Sm:  TSMClient;
  ds: tdataset;
  I,a: Integer;
  LItem: TListViewItem;
begin
  try
    Sm :=TSMClient.Create(ClientModule1.DSRestConnection1)    ;
    ds := Sm.GetMovilDirectorios() ;
    ListView1.BeginUpdate;
    try
      ListView1.Items.Clear;
      while not ds.Eof do
      begin
        LItem := ListView1.Items.Add;
        LItem.Text := ds.FieldByName('vennombre').AsString;
        ds.Next;
      end;
    finally
      ListView1.EndUpdate;
    end;
  ...

Todo se llena bien, el problema es cuando hago una búsqueda en el SearchBox del ListView

La primera búsqueda todo sale perfecto
Pero si salgo del SearchBox del ListView y llamo nueva vez el método de llenar ahí no aparece nada.

No se si esto es un Bug?

Uso Delphi XE6

DP