Исправьте ошибки в заданном коде: r1:= -3.1 E-4;Edit2.Text:=IntToStr(r1);

var

 r1: Double;

begin

 r1 := -3.1E-4;

 Edit2.Text := FloatToStr(r1);

end;

В исправленном коде:

Значение -3.1 E-4 изменено на -3.1E-4, чтобы правильно представить число с плавающей запятой в экспоненциальной форме.

IntToStr заменено на FloatToStr, чтобы правильно преобразовать число типа Double в строку.