Paradox tábla létrehozása programból

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Query1 do begin
    DatabaseName:=ExtractFilePath(Application.ExeName);
    with SQL do begin
      Clear;
      Add('CREATE TABLE "Table1.db" ');
      Add('(ID AUTOINC,');
      Add('Name CHAR(10),');
      Add('IRSZ CHAR(4),');
      Add('PRIMARY KEY(ID))');
      ExecSQL;

      Clear;
      Add('CREATE INDEX ByName ON "Table1.db" (Name)');
      ExecSQL; 
    end;
  end;

  Table1.DatabaseName:=ExtractFilePath(Application.ExeName);
  Table1.TableName:='Table1.db';
  Table1.Open;
end;