Gaaaannnz schlimm.
current ist eine lokale Variable! Diese ist nach verlassen der Procedure nicht mehr gültig.
Du kanst nicht mit Records in Listen arbeiten. Da must du schon ein Object draus machen und artig instanzieren. Freigeben nicht vergessen. Aber da kann dir TObjectList mit ownsobjects=true helfen.
Gerd