[leon2009]

Здравствуйте! ошибка строка 225 - это как отдельный модуль?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

var    AValue: string;    APicture: TPicture;    sExt: string;    function FileExtIsGraphicFileType(const aFileName: string): boolean;    var       lExt: string;    begin       lExt := '*' + ExtractFileExt(aFileName);       //lExt should be formatted as '*.jpeg' rather than '.jpeg' or 'jpeg'       result := Pos( AnsiLowerCase(lExt), GraphicFilter(TGraphic) ) > 0;    end; begin    AValue := '';    if FileExists(aFileName) and FileExtIsGraphicFileType(aFileName) then    begin       APicture := TPicture.Create;       try          APicture.LoadFromFile(AFileName);        SavePicture(APicture, AValue);       finally          FreeAndNil(APicture);       end;    end;      sExt := ExtractFileExt(aFileName);    if (sExt = '.jpg') then       ADataController.Values[ARecordIndex, APictureJPGColumnIndex] := AValue    else if (sExt = '.bmp') then       ADataController.Values[ARecordIndex, APictureBMPColumnIndex] := AValue    else if (sExt = '.png') then       ADataController.Values[ARecordIndex, APicturePNGColumnIndex] := AValue; end;

SavePicture(APicture, AValue);