[an error occurred while processing this directive]
Измените тип current_record с PPreviewItem на TPreviewItem. В Паскале все объекты создаются динамически так что переменная типа TPreviewItem по сути является указателем.
(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)