TObjectlist.add(record)?

[ozz]

Hallo zusammen,
ich möchte zu einer TOjectlist ein Record hinzufügen und bekomme immer einen Typenkonverierungsfehler.

Delphi-Quellcode:

type TCLCategory = record
     id:integer;
     Category:string;
     parent:integer;
end;


type TMyClass = class (TComponent)
private
 FCategory: TObjectList;
 ....
 
procedure TMyClass.irgendetwas;
var current:TCLCategory;
begin
 ....
 FCategory.Add(Current); <-hier
...
end;

Wie kann ich das Problem umgehen?