threadCard := TCardThread.CreateAnonymousThread(
procedure
var
FDQueryUrl: TFDQuery;
this: TCardThread;
begin
this := TThread.CurrentThread as TCardThread;
TTHread.Synchronize(this,
procedure
begin
FDQueryUrl := Dm.GetQuery();
end);
try
...
finally
FreeAndNil(FDQueryUrl )
end;
end;
Каждый раз новая