var
  Http: THTTP;
  LData: TUrlEncodedData;
  sData: string;
begin
  Http := THTTP.Create;
  LData := TUrlEncodedData.Create(True, False);
  try
    LData.Put('_input_charset', 'utf-8');
    LData.Put('suffix', 'csv');

Http.Referer := 'https://github.com/yryz/winhttp';
sData := Http.Get('http://yryz.net?' + LData.ToString);
//sData := Http.Post('http://yryz.net', LData.ToString);

// 网络问题, 忽略

if Http.RawHeader = '' then
begin
  OutLog('网络连接异常!');
  Exit;
end;

OutLogFmt('检测耗时：%dms', [Http.GetUseTime]);

// DO....

finally
  LData.Free;
  Http.Free;
end;

end;