{$IFDEF tGausz2dFitParameterBuffer.initSamples}
//procedure tGausz2dFitParameterBuffer.initSamples(qu: tExtendedArray; xSteps,tSiz,zoom: longint);
var
  x,y: longint;
begin
  sXSteps:=xSteps div zoom;
  sTSiz:=tSiz div zoom;
  setLength(samples,sXSteps*sTSiz);
  for x:=0 to sXSteps-1 do
    for y:=0 to sTSiz-1 do
      samples[x+y*sXSteps]:=0;
  for x:=0 to xSteps-1 do
    for y:=0 to tSiz-1 do
      samples[round(x/(xSteps-1)*(sXSteps-1)) + round(y/(tSiz-1)*(sTSiz-1))*sTSiz]:=
        samples[round(x/(xSteps-1)*(sXSteps-1)) + round(y/(tSiz-1)*(sTSiz-1))*sTSiz] +
        qu[x + y*xSteps];
  for x:=0 to sXSteps-1 do
    for y:=0 to sTSiz-1 do
      samples[x+y*sXSteps]:=
        samples[x+y*sXSteps] / xSteps * sXSteps / tSiz * sTSiz;
end;
{$ENDIF}