Try something like this:

Query1.Append;
try
Query1.Post;
except
on E : Exception do
begin
showmessage('Something went wrong - Error message: '+E.Message);
end;
end;

The E.message will give you an insight as to exactly what went wrong.

-- Greg