高分求解读Delphi 有追加

eRWPrintTaskAction: TEvent;
lvPrintTasks: TListView;
pppiHead: PPrintPacketInfo;
pppiNext: PPrintPacketInfo;
PPrintPacketInfo = ^PrintPacketInfo;
PrintPacketInfo= record
nIndex: integer;
nState: integer;//0:未打印1:申请打印2:正在打印

procedure TwMConsole.StartPrintTaskExecute(Sender: TObject); // 开始打印
var i,j,v:integer;
pppiTemp: PPrintPacketInfo;
pppiprev: pprintpacketInfo;
fChanged: boolean;
nIndex,index:integer;
begin
if eRWPrintTaskAction.Waitfor(nTimeouts) = wrTimeout then
begin
application.MessageBox('系统忙, 请稍后重试!', '提示', MB_OK);
exit;
end;
try
fChanged := false;

for i:= 0 to lvPrintTasks.Items.Count - 1 do
begin
if lvPrintTasks.Items[i].Selected then
begin
nIndex := strtoint(lvPrintTasks.Items[i].caption);