[Arxa1L]

Код:

var
  F1: TF1;
  mysqlrec: mysql; //Global mysql struct
  connected: Integer; 
  n: integer;
  p0: integer; 

procedure connectserv;
begin

   //Connect to server
     mysql_connect(@mysqlrec, PChar(f1.edtHostname.Text), PChar(f1.edtUsername.Text), PChar(f1.edtPasswd.Text));
     if mysqlrec._net.last_errno = 0 then
      begin
    ShowMessage ('Successfully connected to server');
      connected:= 1; //keep track of connection
      end
     else
      ShowMessage ('Сервер с БД недоступен');
end;

procedure connectdb;
var
   db: String;
   retval: Integer;
begin
     db:= f1.edtDatabase.Text;
     retval:= mysql_select_db(@mysqlrec, PChar(db));
     if retval <> 0 then
        ShowMessage('Error attaching to: ' + db)
     else
         begin
       ShowMessage('Successfully attached to ' + db);
         end;
end;

procedure _query(query:string);
var
presults: pmysql_res; //results structure *pointer
begin
presults:= nil;
     try
     mysql_query(@mysqlrec, PChar(query)); //Send Query to server
     finally
         mysql_free_result(presults); //release the stored results from memory
     end;
end;

procedure TF1.FormCreate(Sender: TObject);
begin
connectserv;
connectdb;
end;

procedure TF1.FormDestroy(Sender: TObject);
begin
     mysql_close(@mysqlrec);
end;



procedure TF1.Button1Click(Sender: TObject);
var i:integer;
s:string;
begin
//тут создается таблица и 2 начальных столбца
_query('create table '+table+' (func int unsigned auto_increment,a1 int(1) DEFAULT 0,primary key (func))');
_query('insert into '+table+' (a1) values (0)'); 
//само создание столбцов и строк
for i:=2 to (p0-1) do
begin
_query('alter table '+table+' add column a'+inttostr(i)+' int(1) DEFAULT 0 after a'+inttostr(i-1));
_query('insert into '+table+' (a1) values (0)');
end;
//добавление последней строки
_query('insert into '+table+' (a1) values (0)');
end;

Admin: Пользуемся тегами, иначе последуют санкции!

вроде все скинул...=0