[DiegoPucho]

Hola duilioisola, no entiendo esta parte...

Código Delphi [-]
try
        d := TFileStream.Create(RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG', fmCreate);
        try
          d.CopyFrom(m, m.Size);
        finally
          d.Free;
        end;

en

Código Delphi [-]
d.CopyFrom(m, m.Size);

m, m.size??? No entiendo que es m?
No logro que me lo guarde!!!

Código Delphi [-]
// Posicion inicial en Mis Documentos (Necesitas el procedimiento GetSpecialFolderPath)
    // InitialDir := GetSpecialFolderPath(CSIDL_PERSONAL, False);
    // Posicion inicial

Que es GetSpecialFolderPath???