[Nicole]

Есть прога по выводу главной диагонали матрицы. Теперь надо сделать так, чтобы на этой диагонали прога находила первое (по порядку) число Фибоначчи.
Пробовал непременно выделять из stringgrid элементы, переводить их в числа и сравнивать на пример равенства сумме предыдущих, но выдается злополучная ошибка " is not a valid integer value.
Надо, чтобы само число Фибоначчи при его наличии показывалось в LabeledEdit1 и выскакивал showmessage('найдено число фибоначчи'). В случае отсутствия - showmessage('число фибоначчи не найдено').
Сможет кто-нибудь помочь?

Код:

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

unit Unit3;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Spin, Grids, ExtCtrls;   type   TForm3 = class(TForm)     Button1: TButton;     StringGrid1: TStringGrid;     SpinEdit1: TSpinEdit;     Label1: TLabel;     Button2: TButton;     Button3: TButton;     Label2: TLabel;     Button4: TButton;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     StringGrid2: TStringGrid;     Button5: TButton;     StringGrid3: TStringGrid;     LabeledEdit1: TLabeledEdit;     procedure Button1Click(Sender: TObject);     procedure SpinEdit1Change(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button5Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form3: TForm3;   implementation   uses Unit2;   {$R *.dfm}   procedure TForm3.Button1Click(Sender: TObject); begin Form3.Hide; Form2.Show; end;   procedure TForm3.SpinEdit1Change(Sender: TObject); var    i,j:integer; begin StringGrid1.ColCount:=SpinEdit1.Value+1; StringGrid1.Width:=StringGrid1.ColCount*66; if StringGrid1.Width>66*2 then StringGrid1.Width:=66*11; for j:=1 to StringGrid1.ColCount do begin StringGrid1.Cells[j,0]:=IntToStr(j); end; StringGrid1.RowCount:=SpinEdit1.Value+1; StringGrid1.Height:=StringGrid1.RowCount*26; if StringGrid1.Height>26*2 then StringGrid1.Height:=26*11; for i:=1 to StringGrid1.RowCount do begin StringGrid1.Cells[0,i]:=IntToStr(i); end; end;   procedure TForm3.Button2Click(Sender: TObject); var    i,j:integer; begin i:=0; for j:=0 to StringGrid1.ColCount-1 do begin StringGrid2.Cells[j,i]:=StringGrid1.Cells[j+1,j+1]; StringGrid2.ColCount:=StringGrid1.ColCount-1; end; end;   procedure TForm3.Button5Click(Sender: TObject); var    i,j:integer; begin for i:=1 to StringGrid1.RowCount-1 do for j:=1 to StringGrid1.ColCount-1 do StringGrid1.Cells[j,i]:=IntToStr(random(10)); end;   end.