Danke für den Hinweis! Ich hoffe nicht, daß dort das Problem liegt, hier die Deklaration:
Code:
type TFunctionList = class
protected
list:TList; // interne Liste der Funktionsblöcke
public
constructor Create; virtual;
function add(block:TFunctionBlock):TFunctionBlock;
procedure delete(block:TFunctionBlock; destroyBlock:boolean);
procedure deleteByIndex(block_id:integer; destroyBlock:boolean);
function getCount:integer;
function getItem(index:integer):TFunctionBlock;
function getBlockIndex(block:TFunctionBlock):integer;
procedure FlushList;
destructor Destroy; override;
end;