Form1.ZQWork.SQL.Add('INSERT INTO registration');
  Form1.ZQWork.SQL.Add('(dateadd,timeadd,id,fio,phonepref,phone,number,'+
    'city,adress,home,apartment,dateclose,timeclose,'+
    'creator,status,executer,respons_exe,st1,st2,st3,st4,st5,'+
    'pstartdate,pstarttime,pstopdate,pstoptime,'+
    'content,'+
    'stage,pod,'+
    'description) VALUES (''' + trim(dateadd1) +  ''',''' + trim(timeadd1) +   ''',''' + trim(id.Text) +    ''',''' + trim(fio.Text) +    ''',''' + trim(phonepref.Text) +      ''',''' + trim(phone.Text) +     ''',''' + trim(number.Text) +
    ''',''' + trim(city.Text) +  ''',''' + trim(adress.Text) +    ''',''' + trim(home.Text) +  ''',''' + trim(apartment.Text) +   ''',''' + trim(dateclose1) +    ''',''' + trim(timeclose1) +
    ''',''' + trim(creator.Text)+  ''',''' + inttostr(status.ItemIndex)+   ''',''' + trim(executer.text)+ ''',''' + trim(respons_exe.text)+   ''',''' + booltostr(st1.Checked)+   ''',''' + booltostr(st2.Checked)+  ''',''' + booltostr(st3.Checked)+  ''',''' + booltostr(st4.Checked)+  ''',''' + booltostr(st5.Checked)+
    ''',''' + trim(pstartdate1)+  ''',''' + trim(pstarttime1)+   ''',''' + trim(pstopdate1)+ ''',''' + trim(pstoptime1)+
    ''',''' + trim(content.Text)+
    ''',''' + trim(etag.Caption)+ ''',''' + trim(num_pod.Caption) +
    ''',''' + trim(description.Text) +  ''')');

 if  dateadd.Text='  .  .    ' then   dateadd1:='0000-00-00' else  DateTimeToString(dateadd1,'yyyy-mm-dd',strtodate(dateadd.Text))  ;
 if  dateclose.Text='  .  .    ' then   dateclose1:='0000-00-00' else   DateTimeToString(dateclose1,'yyyy-mm-dd',strtodate(dateclose.Text))  ;
 if  timeadd.Text='  :  ' then timeadd1:='00:00:00' else timeadd1:=timeadd.Text;
  if  timeclose.Text='  :  ' then timeclose1:='00:00:00' else timeclose1:=timeclose.Text;

 timeclose1:=''

Form1.ZQWork.SQL.Text:= 'INSERT INTO registration (dateadd,timeadd...)  VALUES (:dateadd,:timeadd ...)';
Form1.ZQWork.SQL.Prepare;
Form1.ZQWork.SQL.ParamByName('dateadd').Value:= nil;
Form1.ZQWork.SQL.ParamByName('timeadd').Value:= nil;
Form1.ZQWork.SQL.Active:= True;

 Form1.ZQWork.Active:=false;
  Form1.ZQWork.SQL.Clear;
    Form1.ZQWork.SQL.Add('INSERT INTO registration (dateadd,timeadd)'+
    'VALUES'+
    '(:dateadd,:timeadd)');

Form1.ZQWork.Prepare;
Form1.ZQWork.ParamByName('dateadd').Value:= nil;
Form1.ZQWork.ParamByName('timeadd').Value:= nil;

    try
    Form1.ZQWork.Active:= True;
  except on e: EDatabaseError do
      messageDlg(e.message, mtError, [mbOK], 0);
  end;

Form1.ZQWork.Active:= True;