如何利用列表框中的数据作为查询条件读取一个数据表，并把读取到的数据插到新表

Question

//No.1
  ListBox1.Clear;
  Table1.First;
  while not Table1.Eof do begin
    ListBox1.Items.Add(Table1.FieldByName('value2').AsString);
    Table1.Next;
  end;

Answer 1

//No.2
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if TListBox(Sender).ItemIndex < 0 then Exit;
  Table2.Filtered := False;
  Table2.Filter := Format('val1=%s', [
    QuotedStr(TListBox(Sender).Items[TListBox(Sender).ItemIndex])]);
  Table2.Filtered := True;
end;

Answer 2

//No.3
  Table2.First;
  while not Table2.Eof do begin
    Table3.Append;
    Table3['data1'] := Table2['val2'];
//    Table3['data2'] := ?;
    Table2.Next;
  end;