//sCount是一個private變數，目的是為了累計目前的筆數
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  if Query1.Eof do
    MoreDate := False
  else
  begin
    Inc(sCount);
    MoreDate := True;
    if sCount mod 2 = 0 then
      //填入資料至右半部 
      QRLabel2.Caption := Query1.FieldByName('FieldName').AsString;
      .....
    else
      //填入資料至左半部 
      QRLabel1.Caption := Query1.FieldByName('FieldName').AsString;
      .....
    Query.Next;
  end;
end;