Perdida de conexión [MySQL Server has gone awway]

[frandigo77]

Hola buenas, q tal..estoy desarrollando una aplicación Delphi con MySQL y en un formulario de envio de datos donde trabajo con un campo blob, me aparece el eror [[MySQL Server Driver xx servr has gone away], he estado leyendo por el site de MySQL y he probado a ampliar la memoria de transferencia de paquetes modificando la variable mas_allowe_packet del servidor a 32 MB, pero me sigue saliendo el error, las foto que se envia es en formato .bmp por lo que no tiene que pesar mucho...alguien que ya hay tenido un problema similar o asi puede echarme una mano?...thaknk

[Casimiro Notevi]

¿Y el código que usas?

[frandigo77]

Ahí va:
function TDialogo.Guardar: boolean;
var
I: Integer;
begin
inherited;
Result:= False;
if Assigned(dsBase.DataSet) then
begin
try
With dsBase.DataSet as TClientDataSet do
begin
if Assigned(DataSetField) or FModoCache then
begin
CheckBrowseMode;
Result:= True;
end
else
begin
Result:= ApplyUpdates(0) = 0;
if not Result then
Abort;
end;
end;
except
On E: Exception do
begin
Application.ShowException(E);
raise E;
end;
end;
end;
end;