TRESTClient CreateAnonymousThread Delphi

TRESTClient_ CreateAnonymousThread.pas

uses IPPeerClient,REST.Client, Data.Bind.Components, Data.Bind.ObjectScope;
procedure TForm1.Button1Click(Sender: TObject);
var
  rc:   TRESTClient;
  rr:   TRESTRequest;
  res:  TRESTResponse;
begin
  TThread.CreateAnonymousThread(
    procedure
    begin
      rc := TRESTClient.Create(Self);
      rr := TRESTRequest.Create(Self);
      res:= TRESTResponse.Create(Self);
      try
        rr.Client := rc;
        rr.Response := res;

        rc.BaseURL  := 'http://www.mojeld.com';
        rr.Execute;
        TThread.Synchronize(TThread.CurrentThread,
        procedure()
        begin
          Memo1.Lines.Text := rr.Response.Content;
        end
        );
      finally
        res.DisposeOf;
        rr.DisposeOf;
        rc.DisposeOf;
      end;

    end
    ).Start;
end;