begin
Query1.Close;
Query1.SQL.Clear;


Query1.SQL.Add('INSERT INTO tmp.dbf');
Query1.SQL.Add('(ConsFname, ConsLName, ConsTname,ConsPhone) VALUES ('''+trim(eConsFname.Text)+''','''+trim(eConsLName.Text)+''','''+trim(eConsTname.Text)+''','''+trim(eConsPhone.Text)+''')');
условие
Query1.SQL.Add('(OrderDate, OrderCity, OrderEc,OrderEcp) VALUES  ('''+datetostr(deOrderDate.Date)+''','''+trim(eOrderCity.Text)+''','''+trim(eOrderEc.Text)+''','''+trim(cbOrderEcp.Text)+''')');

//условие
Query1.SQL.Add('(EcAppUNP, BankCAcc, EñAppAdr) VALUES  ('''+trim(eEcAppUNP.Text)+''','''+trim(eBankCAcc.Text)+''','''+trim(eEcAppAdr.Text)+''',)');

//условие
Query1.SQL.Add('(bn, bhomen, bObl,bcity,bst) VALUES  ('''+trim(eNumCommon.Text)+''','''+trim(eNumHCommon.Text)+''','''+trim(eNumBOCommon.Text)+''','''+trim(eNumSCommon.Text)+''','''+trim(eNumStCommon.Text)+''')');

//условие
if length(mAddMCP.Text)>2 then
Query1.SQL.Add('(AddMCP) VALUES ('''+trim(mAddMCP.Text)+'''');

try
Query1.ExecSQL;
  except   On e : EDatabaseError do messageDlg(e.message, mtError, [mbOK],0);end;
end;

INSERT INTO tmp.dbf (n1,n2....nx) VALUES (v1,v2...vx)