[vtdeleon]

Ok, ya veo el problema.

Tienes una sentencia de Inserción en SelectSQL, entonces no puedes usar el método Append del dataset para tal caso.

Haz esto:

Código Delphi [-]
DataM.IBDataSet1.Close;
DataM.IBDataSet1.ParamByName('campo1').AsString:=Edit1.Text;
DataM.IBDataSet1.ParamByName('campo2').AsString:=ValorParaCampo2
DataM.IBDataSet1.ParamByName('campo3').AsString:=ValorParaCampo3
DataM.INDataSet1.ExecSql;
//DataM.IBDataSet1.Append;
Edit1.SetFocus;