procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
  s,s2,s3,s4:string;
  F:TextFile;
  ws:string;
begin
  if OpenDialog1.Execute then
  begin
    DataBase1.Connected:=false;
    DataBase1.AliasName:=combobox1.text;
    DataBase1.Connected:=true;
    if MessageDlg('請問要將資料表清空嗎?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
       Query1.close;
       Query1.sql.text:='DELETE FROM ' combobox2.text;
       try
         Query1.execsql;
       except
         ShowMessage('資料表刪除失敗');
         exit;
       end;
    end;
    SaveDialog1.InitialDir:=ExtractFilePath(OpenDialog1.filename);
    AssignFile(f,OpenDialog1.filename);
    reSet(f);
    while not eof(f) do
    begin
      Readln(f,s);
      s:=s;
      ws:=s;
      s2:='INSERT INTO ' combobox2.text ' VALUES(';
      s4:='';
      for i:=1 to length(ws) do
      begin
        s3:=ws[i];
        if s3=#9 then
        begin
          s2:=s2 AnsiQuotedStr(s4,'''') ',';
          s4:='';
        end
        else
        begin
          s4:=s4 s3;
        end;
      end;
      s2:=s2 AnsiQuotedStr(s4,'''') ')';
      Query1.close;
      Query1.sql.text:=s2;
      caption:=s2;
      try
        Query1.execsql;
      except
        ShowMessage('Error:' s2);
      end;
    end;
    CloseFile(f);
  end;
  Query1.close;
end;