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';