TInfoPanelLine = packed record Text: packed array[0..79] of char; Data: packed array[0..79] of char; Separator: integer; end; PInfoPanelLine = ^TInfoPanelLine;