Criando tabelas via SQL no Delphi

- 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;