Básicamente, debes pedir el fichero que contiene la imagen y luego copiarlo a la carpeta donde las almacenas, con el nombre que le corresponda (COD_PRODUCTO + '.JPG').
Pordrías poner un Botón y en el evento OnClick hacer algo asi:
Código Delphi
[-]
var
o, d : TStream;
begin
with TOpenDialog.Create(nil) do
begin
try
Filter := _('Imagenes JPG|*.jpg;*.jpeg|Todos los archivos|*.*');
FilterIndex := 1;
InitialDir := '';
Title := _('Cargar imagen para producto');
if (Execute) then
begin
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;