[dyavolenok_shef]

У меня написана прога в Лазарусе, но при запуске он выдает ошибку Project raised exception class 'External: SIGSEGV' и не дает запускать по шагово сразу её и выводит, помогите, как исправить???

вот код проги:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93

unit Unit1;   {$mode objfpc}{$H+}   interface   uses   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,   StdCtrls, Buttons;   type     { TForm1 }     TForm1 = class(TForm)     BitBtn1: TBitBtn;     Button1: TButton;     ComboBox1: TComboBox;     ComboBox2: TComboBox;     Edit1: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Memo1: TMemo;     Panel1: TPanel;     Panel2: TPanel;     RadioGroup1: TRadioGroup;     ScrollBar1: TScrollBar;     procedure Button1Click(Sender: TObject);     procedure Edit1KeyPress(Sender: TObject; var Key: char);     procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;       var ScrollPos: Integer);   private     { private declarations }   public     { public declarations }   end;   var   Form1: TForm1;   implementation   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); var rast: real; {расстояние}     cena: real; {цена}     potr: real; {потребность на 100 км}     suma: real; {сумма поездки}     obsuma: real; {общая сумма поездки}     skidka: real; {скидка на бензин}     stroka: string; {для вывода сообщения на экран} begin     rast:=StrToFloat(Edit1.Text); {переводим из строчного значение в числовое}     cena:=StrToInt(ComboBox1.Text);     potr:=StrToFloat(ComboBox2.Text);     {определяем стоимость поездки туда и обратно}     suma:=(rast/100) * potr * cena;     suma:=suma*2;     {если учитывается скидка в 5%}     If RadioGroup1.ItemIndex=1 then       Begin       {формируем сообщение}        stroka:='Поездка на дачу и обратно обойдется Вам в ';        {в Memo добавляем строку}        Memo1.Lines.Add(stroka + FormatFloat('####.## рублей ',suma));       End      {если скидка не учитывается}      else       Begin        Stroka:='Поездка на дачу и обратно(со скидкой в 5%)обойдется Вам в ';        skidka:=suma*0.05;  {вычисляем 5% скидку от полученной суммы}        obsuma:=suma-skidka;{вычисляем общую сумму поездки}        Memo1.Lines.Add(stroka + FormatFloat('####.## рублей ',obsuma));       End; end;   procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char); begin   If not (Key in ['0'..'9', #8]) then Key:=chr(0); end;   procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;   var ScrollPos: Integer); begin   ComboBox1.Text:=IntToStr(ScrollBar1.Position); end;   initialization   {$I unit1.lrs}   end.