Hvorfor får jeg den her fejl "Invalid Floating Point Operation"?

På nedenstående kode, som har virket fint, får jeg nu pludselig en fejl : "Invalid Floating Point Operation" hvorfor opstår den fejl?

*****KODE START****

//DBImage Ændre sig efter hvor stort billedet er
procedure TForm5.DataSource1DataChange(Sender: TObject; Field: TField);
var
Ratio: Double;
begin
  Form5.ImageBillede.Width:=280; // din max standard bredde
  Form5.ImageBillede.Height:=737; // din max standard højde
 
>>Fejlen opstår på nedenstående linje
Ratio := Form5.ImageBillede.Picture.Width / Form5.ImageBillede.Picture.Height;
<<Som slutter her

    if Ratio > 1 then
      Form5.ImageBillede.Height:=Round(Form5.ImageBillede.Width / Ratio)
    else
      Form5.ImageBillede.Width:=Round(Form5.ImageBillede.Height * Ratio);
end;

*****KODE SLUT*****