[Melletzar]

Перезалил вот сюда:
http://wizland.ru/src.rar

Цитата кода ничего не даст по сути - в ней нет ошибок. Но именно на этой процедуре падает программа:

Код:

procedure ShowBaseData;
 begin
   //массы поршней и объекта
  form1.Edit13.Text:=floattostr(mas[1]);
  form1.Edit14.Text:=floattostr(mas[2]);
  form1.Edit15.Text:=floattostr(mas[3]);
  // Начальный объем
  form1.Edit3.Text:=floattostr(V0);
  // Начальное сжатие
  form1.Edit1.Text:=floattostr(sz);
  // Колличество пневмопушек
  form1.Edit5.Text:=floattostr(Vogr);
  // Координаты второго ловителя
  form1.Edit6.Text:=floattostr(lvcrd);
  //Диаметры поршней 1 и 2
  form1.Edit2.Text:=floattostr(Dp[1]);
  form1.Edit4.Text:=floattostr(Dp[2]);
end;

Я вывесил выше скриншот ошибки. Может быть это подскажет как быть