procedure Test;
var
  Var1: Integer;
begin
    while True do
    begin
        try
            if System.Random > 0.5 then
            begin
                ShowMessage('Skipping');
                continue; // If I remove this line,the warning goes away
            end;
            Var1:=6;
        except on
            E:Exception do
            begin
                ShowMessage('Error');
                raise;
            end;
        end;
        ShowMessage(IntToStr(Var1)); // Compiler warning on this line
    end;
end;

当我在Delphi 2010中编译它时,我得到：

[DCC Warning] OnlineClaimManagerMainU.pas(554): W1036 Variable ‘Var1’
might not have been initialized

如果我将呼叫删除为“继续”,则警告消失.

此外,如果我删除try / except子句(并保留继续),则警告消失.

如果没有初始化Var1,执行如何进入有问题的行？