Лидеры

Поздно, но может кому пригодится function TForm1.Blur(sbit: TBitmap): TBitmap; var FilterClass: TFilterClass; FFilter: TFilter; FFilterParams: TFilterRec; BitmSource, BitmDest: TBitmap; begin BitmSource:=TBitmap.Create; BitmSource.Assign(sbit); Result:=TBitmap.Create; FFilter := TFilterManager.FilterByName('GaussianBlur'); FilterClass := TFilterManager.FilterClassByName('GaussianBlur'); FFilterParams := FilterClass.FilterAttr; FFilter.ValuesAsFloat['BlurAmount']:=5.7; FFilter.Apply; FFilter.ValuesAsBitmap['Input'] := BitmSource; Result.Assign(FFilter.ValuesAsBitmap['output']); FreeAndNil(FFilter); FreeAndNil(BitmSource); end; function TForm1.Tint(sbit: TBitmap; tintColor: TAlphaColor): TBitmap; var FilterClass: TFilterClass; FFilter: TFilter; FFilterParams: TFilterRec; BitmSource, BitmDest: TBitmap; begin BitmSource:=TBitmap.Create; BitmSource.Assign(sbit); Result:=TBitmap.Create; FFilter := TFilterManager.FilterByName('FillRGB'); FilterClass := TFilterManager.FilterClassByName('FillRGB'); FFilterParams := FilterClass.FilterAttr; FFilter.ValuesAsColor['Color']:=tintColor; FFilter.Apply; FFilter.ValuesAsBitmap['Input'] := BitmSource; Result.Assign(FFilter.ValuesAsBitmap['output']); FreeAndNil(FFilter); FreeAndNil(BitmSource); end;

begin Result := false; это вот это. там по-любому потом переписывается значение, поэтому она говорит, что строка лишняя

в целом статус не нужен. он появляется от сервера. это значит инет есть. т.е. /// Result := aResp.StatusCode < 400; Result := true; и ниже достаточно check := CheckInet; If not check Then ...