"Ошибка синтаксиса" при создании нового поля

procedure TProgrammaUchitelja.Button1Click(Sender: TObject);   var
    I: Integer;       colmn:string;
     col:integer;
 
    fields:TStrings;
begin
 column := FormatDateTime('dd_mm_yyyy', Date);
   colmn:=(colemn)+column;
   showmessage (colmn);
 
  fields := TStringList.Create;
 
  ADOTable1kl.GetFieldNames(fields);
 
  { Поля можно добавлять только к неактивному набору данных. }
  ADOTable1kl.Close;
 
  
  try
 
   // проверим таблицу на наличие столбца с тек. датой
   for i:=3 to fields.Count-1 do
    begin
 
     if fields[i]=colmn then
      begin
       MessageBox(handle,'Дата уже существует!','ОШИБКА',MB_OK or MB_ICONWARNING);
       //  выйдем
       exit;
      end;
    end;
        ADOQuery1kl.SQL.Clear;
   //  запрос на добавление столбца в таблицу
   ADOQuery1kl.SQL.Add('ALTER TABLE '+ ADOTable1kl.TableName +' ADD '+colmn+' string(100)');
   // выполним запрос  
   ADOQuery1kl.ExecSQL;
   // добавим в таблицу "Темы" строку 
  finally
   { Теперь  увидем  поле }
   ADOTable1kl.Open;
   //обновим поля в таблице
   ProgrammaUchitelja.FormShow(ProgrammaUchitelja);
  end;

   ADOQuery1kl.SQL.Add('ALTER TABLE '+ ADOTable1kl.TableName +' ADD '+colmn+' integer(100)');

   ADOQuery1kl.SQL.Add('ALTER TABLE '+ ADOTable1kl.TableName +' ADD '+'вот так'+' VARCHAR(100)');