Delphi 7,проверить последовательность чисел на принадлежность к последовательности Фибоначчи

[SaintJon]

Пользователем введена в ListBox последовательность чисел, выяснить, является ли это последовательность последовательностью чисел Фибоначчи.

[SaintJon]

Примерно сделал, но код постоянно выдает "нет"

procedure TForm1.Button12Click(Sender: TObject);
var
k,n,q:integer;
an: array [1..1000] of integer;
begin
an[1]:=strtoint(ListBox2.items[1]);
an[2]:=strtoint(ListBox2.items[2]);

    q:=1;
for k:=3 to ListBox2.Items.Count  do

begin
 if an[k]=an[k-1]+an[k-2] then  else q:=2;
end;
 if q=1 then ShowMessage('да');
 if q=2 then ShowMessage('нет');
end;

[evg_m]

n:=ListBox2.count-1;
//НАДО заполнить ВЕСЬ массив (прочитать все строки из LisBox !)
for k:=1 to ListBox2.count-1 do 
  an[k]:=strtoint(Listbox2.Items[k]);

otv:='Да'; //q:=1;
for k:=3 to n do
  if an[k] = an[k-1]+an[k-2] then otv:='Нет'; ?????? //q:=2;

showMessage(otv);