Нужно написать функцию

[Диман]

Нужно написать функцию

Плиз хелм ми гайс!:tehnari_ru_837:
Нужно написать функцию! проверяющую массив на геометрическую прогрессию!
Есть код который переделал с процедуры но он не пашет... Ругается на отсутствие мемо

Function Checkgp:boolean;
var
i:integer;
//q:Real;  q обьявите глобально;
rez:Boolean;
begin
  q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);
   result:=true;
      for i:=2 to memo1.lines.count-1 do
     if (strtofloat(memo1.lines[i])/strtofloat(memo1.lines[i-1])<>q)
   then
 begin
  result:=false; exit;
 end;
end;

вызов
Код:

if checkGP then
edt1.Text:=FloatToStr(q)
  else
   edt1.Text:='0';