[Alegun]

В D7 надо делать так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
j : TJjpegImage;
begin
 ...
 ..
 .

 if OptW = factW then
  begin
   Label3.caption :='Ваш вес идеален!';

   j:= TJjpegImage.Create;
   j.LoadFromFile('C:\1.jpg');
   Image1.Picture.Bitmap.Assign(j);
   j.Free;
  end;
end;

возможно и в вашей прокатит