[ViNT]

Так он и должен виснуть
Когда поле пустое, он пытается преобразовать пустую строку в число и обламывается.
Нужно
d := StringToReal(FormGetText(id_2), 10);
заменить на

S:=FormGetText(id_2);
if s<>'' then 
 d:=StringToReal(s, 10);