通过另一个函数实例化局部变量

Question

我正在使用Delphi 10.2.3 Tokyo和VCL。

我创建了一个函数，该函数调用另一个函数来实例化第一个函数中的局部变量，如下所示：

Procedure TForm1.SetQuery(var aQuery : TFDQuery);
begin
  if not(Assigned(aQuery)) then
    aQuery := TFDQuery.Create(self);  // Never executed ???
  aQuery.Connection := self.FDConnection1;  // Access Violation -> aQuery isn't instanciate !
end;

Procedure TForm1.DoSomething;
var
  vQry : TFDQuery;
begin
  SetQuery(vQry);

end;

aQuery := TFDQuery.Create(self);行从不执行。因此，它随后会导致访问冲突。

我想念什么？