Hallo,
vielleicht solltest du zunächst einmal den Fehler in der Methode
AddTicketBatch korrigieren:
Delphi-Quellcode:
procedure TTicketBatchManager.AddTicketBatch(InTicketBatch: TTicketBatch);
begin
// Creates a new batch as well as a list entry
inc(BatchCount);
SetLength(Batch, BatchCount);
// Batch[BatchCount] := TTicketBatch.Create;
Batch[BatchCount - 1] := TTicketBatch.Create;
end;
Gruß Hawkeye