<Variable> möglicherweise nicht initialisiert

[DeddyH]

Delphi-Quellcode:

try
  FFilePath:= dlgOpenSQL.FileName;
  aFStream:= TFileStream.Create(FFilePath,fmOpenRead);
  try
    lblFile.Caption:= dlgOpenSQL.FileName;
    btnProtocol.Enabled:= True;
  finally
    aFStream.Free;
  end;
except
  on e: Exception do
    begin
      MessageDlg('Fehler beim Laden der Datei!'#13#10+e.Message,mtError,[mbOk],0);
    end;
end;

Oder soll der Stream nur im Fehlerfall freigegeben werden?