Código Delphi [-]
procedure TForm.CargarImagenDeArchivo(Imagen: TImage; Archivo: string);
begin
  try
     Imagen.Picture.LoadFromFile(Archivo);
  except
     on EInvalidGraphic do
     begin
        Imagen.Picture.Graphic := nil;
        MessageDlg(_('Formato de imagen no aceptado'), mtError, [mbOK], 0);
     end;
     on EFOpenError do
     begin
        Imagen.Picture.Graphic := nil;
     end;
  end;
end;

begin
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';
[...]
   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
[...]
end;

Código Delphi [-]
begin
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';
[...]
   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
[...]
end;

Código Delphi [-]
procedure TForm.BotonMuestraImagen.Click(Sender: TObject);
begin
   // Estas deberían ser variables globales, o globales a la unidad
   // Podrías cargarlas desde un fichero .ini que contenga la configuración/preferencias
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';

   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
end;
otń.

Código Delphi [-]
RutaImagenesProductos := 'C:\Imagenes\Productos\';

Código Delphi [-]
const
  RutaImagenesProductos:String = ('C:\SOME\Imagenes\Productos');

Código Delphi [-]
CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')

Código Delphi [-]
const
  RutaImagenesProductos:String = ('C:\Imagenes\Productos');

Código Delphi [-]
const
  RutaImagenesProductos:String = ('C:\Imagenes\Productos\');

Código Delphi [-]
var
o, d : TStream;
begin
  // Pregunto por fichero que contiene la imagen a asignar al articulo
  with TOpenDialog.Create(nil) do
  begin
    try
    // Extensiones para filtrar la busqueda
    Filter := _('Imagenes JPG|*.jpg;*.jpeg|Todos los archivos|*.*');
    // Por defecto que esté en la primera (JPG)
    FilterIndex := 1; 
    // Posicion inicial en Mis Documentos (Necesitas el procedimiento GetSpecialFolderPath)
    // InitialDir := GetSpecialFolderPath(CSIDL_PERSONAL, False);
    // Posicion inicial
    InitialDir := '';
    Title := _('Cargar imagen para producto');
    // Si se ejecuta correctamente (Termina con botón Aceptar)
    if (Execute) then
    begin
      // Creo dos Streams. Origen y Destino. Copio en destino lo que haya en origen.
      o := TFileStream.Create(FileName, fmOpenRead);
      try
        d := TFileStream.Create(RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG', fmCreate);
        try
          d.CopyFrom(m, m.Size);
        finally
          d.Free;
        end;
      finally
        o.Free;
      end;
    end;
    finally
      Free;
    end;
  end;
end;

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

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

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

Código Delphi [-]
// Destino.CopiarDesde(Origen, Origen.Tamaño)
// Copia en Destino el contenido de Origen, tantos bytes como tenga.
d.CopyFrom(o, o.Size);