Не врал, честное слово.
А теперь понял ошибку и исправился!.
Вот так должно быть?
Код:
procedure TRIP.Edit1Change(Sender: TObject);
begin
try
a:=StrToFloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=StrToFloat(edit3.Text);
d:=strtofloat(edit4.Text);
e:=strtofloat(edit5.Text);
F:=b+((e-a)/(c-a)*(d-b));
edit6.Text:=floattostr(f);
except
end;
end;