Criando tabelas via SQL

Inclua na seção uses: dbTables

- Coloque um TButton no form;

- Escreve no OnClick do Button como abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
  Q: TQuery;
begin
  Q := TQuery.Create(Application);
  try
  Q.DatabaseName := 'SF';
  with Q.SQL do begin
  Add('Create Table Funcionarios');
  Add('( Codigo AutoInc,');
  Add(' Nome Char(30),');
  Add(' Salario Money,');
  Add(' Depto SmallInt,');
  Add(' Primary Key (Codigo) )');
  end;
  Q.ExecSQL;
  finally
  Q.Free;
  end;
end;

ObservaçõesEste exemplo foi testado com banco de dados Paradox, porém deverá funcionar em vários outros bancos de dados com pouca ou nenhuma alteração.