procedure TForm1.Button1Click(Sender: TObject);
begin
factW := StrToInt(Edit2.text);
Rost := StrToInt(Edit1.Text);
OptW :=Rost - 100;
Delta := abs(factW - OptW);
if OptW = factW then begin
Label3.caption :='Ваш вес идеален!';
Image1.Picture.LoadFromFile('C:\1.jpg');
end;

В Uses модуль jpeg прописал.