Hola.
Tal vez tengas una
fuga de memória. Los componentes visuales, tienen una propiedad
parent que indica quien es el responsable de liberarlo. De forma que al eliminar un formulario, se libera la memória de todos los componentes que lo tengan como parent.
Aunque a veces se crean objetos por código, los cuales se tienen que liberar también por código mediante el método
Free, puesto que al liberar el formulario donde se crearon, no implica que se libere su memória asignada. Esto puede provocar que cada vez que cargas el formulario, se creen objetos nuevos por código, los cuales al no liberarse nunca, van incrementado gradualmente la memória consumida.
Ejemplo :
Código:
procedure TfrmAnomalia.CargarImagen;
var Jpeg:TJpegImage;
Corriente:TMemoryStream;
begin
imgFoto.Picture := nil;
if cdsDatosIMAGEN.BlobSize > 0 then begin
Jpeg:=TJpegImage.create;
Corriente:=TMemoryStream.create;
try
cdsDatosIMAGEN.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
Jpeg.LoadFromStream(Corriente);
imgFoto.Picture.Assign(Jpeg);
finally
Jpeg.Free; (*)
Corriente.Free; (*)
end;
end;
end;
Estas líneas, cargan en un TImage, una imagen en formato Jpeg guardada en un campo Blob. En los (*) se muestra como libero unos objetos creados por código. Si no lo hiciese, cada vez que cargase el formulario, tendría una perdida de memória, con el contenido de la imagen.
No estaría de más que revisases tu código buscando objetos sin liberar.
Saludos.