O soy tonto o .... problema al liberar memoria

[cesarsoftware]

Empezado por escafandra

Me alegra que tu proyecto avance y que mis aportes te sirvan de ayuda.

Buenos días, perdona que te moleste, pero he retomado el proyecto y tengo una duda que no consigo resolver.
Deje el tema de resta de imágenes porque tenia que entregarlo y mandaba la imagen completa, ahora estoy enviando la resta y eso es lo que veo, la resta.
Como creo inicialmente una imagen vacía, la primera vez la resta es la imagen completa, pero luego solo pinto la diferencia al asignar el Stream al bitmap.

Esta es la función

Código Delphi [-]
function TFormPantalla.PintaPantalla(): boolean;
var
  LStream: TMemoryStream;
  LPngImage: TPngImage;
begin
  TimerTimeOut.Enabled := False;
  Result := True;
  if Self.WindowState = wsMinimized then
    Exit;
  LPngImage := TPngImage.Create;
  LStream := TMemoryStream.Create;
  try
    LStream.Write(SCRBuffer[0], SCRSize);
    LStream.Position := 0;
    LPngImage.Canvas.Lock;
    LPngImage.LoadFromStream(LStream);
    LPngImage.Canvas.Unlock;
    Imagen.Picture.Assign(LPngImage);
  except
    LStream.Free;
    LPngImage.Free;
    Result := False;
  end;
  LStream.Free;
  LPngImage.Free;
end;

¿Como puedo hacer para, en vez de usar Imagen.Picture.Assign(LPngImagen), que es solo la diferencia, para "sumar" la diferencia recibida a la imagen actual?

Gracias y ya sabes que las las pongo yo