QR ist einfach leer

[Mada]

HI,

da das mit miener Virtuellen Tabelle nicht geklappt hat , hab ich es nun doch mit dem OnNeedData versucht. Doch langsam bin ich am verzweifeln. Nun wird mein Bericht zwar aufgerufen aber er enthält einfach nichts.

Hier ist der betreffende Quellcode

Code:

procedure FrmForm1.Arrayuebergabe(TempArray: TDoubleArray);
var  //TempArrayDruck : TDoubleArray;

MoreData : Boolean;
begin

  SetLength(TempArrayDruck,300,2);
  TempArrayDruck := TempArray;
  MoreData := True;
   begin
     //FrmForm1.QuickRep1NeedData(MoreData);

     FrmForm1.QuickRep1.OnNeedData(Self,MoreData);
   end;
end;


procedure FrmForm1.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  while TempArrayDruck[CurrentIndex,0] <> 0 do
  begin
    MoreData := True;

    if MoreData then
    begin

      QRLabel_Land.Caption := FloatToStr(TempArrayDruck[CurrentIndex,0]);
      QRLabel_KM.Caption := FloatToStr(TempArrayDruck[CurrentIndex,1]);

      MoreData:=False;
      Inc(CurrentIndex);
    end;
  end;
  //QuickRep1 ist leer!!!
  QuickRep1.Preview;
end;

procedure FrmForm1.QuickRep1BeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  CurrentIndex := 0;
end;

Ein paar Sätze dazu. TempArray wird von einer anderen Unit übergeben ud ist im Deugger auch richtig befüllt.
Mit der schleife sollte er ausgelesen und dargestellt werden.

Was mache ich falsch? Hat mir jemand eine Tipp?

Dankeschön!

Grüßle
Mada