const
    cNames: array[0..25] of String = (
        'Alpha', 'Bravo', 'Charlie', 'Delta',
        'Echo', 'Foxtrot', 'Gamma',
        'Hotel', 'India', 'Julliet',
        'Kilo', 'Lima', 'Mike', 'November',
        'Oscar', 'Papa', 'Quebec', 'Romeo',
        'Sierra', 'Tango', 'Uniform',
        'Victor', 'Whiskey', 'Xray', 'Yankee',
        'Zulu');

procedure TForm1.GenValues(ANumber: Integer);
var
    lIndex: Integer;
    i: Integer;
begin
    for i := 0 to ANumber - 1 do begin
        with tblTest do begin
            Append;
            try
                lIndex := Random(26);
                Fields.Fields[1].AsString := cNames[lIndex];
                Post;
            except
                Cancel;
                raise;
            end;
        end;
    end;
end;

procedure TForm1.UpdateLV;
var
    lNameFilter: String;
    lListItem: TListItem;
    lFound: Boolean;
begin
    LV.Items.BeginUpdate;
    try
        LV.Clear;
        lNameFilter := Trim(edNameFilter.Text);
        with tblTest do begin
            if (Length(lNameFilter) = 0) then begin
                First;
                while not Eof do begin
                    lListItem := LV.Items.Add;
                    lListItem.Caption :=
                      IntToStr(Fields.Fields[0].AsInteger);
                    lListItem.SubItems.Add(
                      Fields.Fields[1].AsString);
                    Next;
                end;
            end
            else begin
                Filter := 'Name = ' +
                          QuotedStr(edNameFilter.Text);
                FilterOptions := [foCaseInsensitive];
                lFound := FindFirst;
                while lFound do begin
                    lListItem := LV.Items.Add;
                    lListItem.Caption :=
                      IntToStr(Fields.Fields[0].AsInteger);
                    lListItem.SubItems.Add(
                      Fields.Fields[1].AsString);
                    lFound := FindNext;
                end;
            end;
        end;
    finally
        LV.Items.EndUpdate;
    end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    Randomize;
    if not tblTest.Exists then
        tblTest.CreateTable;
    tblTest.Open;
    UpdateLV;
end;

procedure TForm1.btnFillClick(Sender: TObject);
begin
    GenValues(20);
    UpdateLV;
end;

procedure TForm1.btnFilterClick(Sender: TObject);
begin
    UpdateLV;
end;