несколько странно выглядит код
response = get();
if (...) then
Synchronize(... response := nil;)
а если else, то что с response ?
10.4.4 Win64/Win32
тестовый код
procedure TForm1.btn1Click(Sender: TObject);
begin
ttask.Run(
procedure
var
http: THTTPClient;
resp: IHTTPResponse;
begin
http := THTTPClient.Create;
resp := http.Get('http://www.google.com');
TThread.Synchronize(nil,
procedure
begin
m1.Lines.Text := resp.ContentAsString();
end
);
http.Free;
end
);
end;
утечек не нашел
если поставить breakpoint на http.free то в отладчике вызовы IntfClear видны. так что не все так однозначно, как любят говорить в некоторых местах)