procedure TformViewScannedXrays.ImageEnMView1GetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString; Font: TFont;
  var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor; var TruncSide: TIEMTruncSide);
var
  tempFileName: String;
  tempExtension: String;
begin
  if Position = iemtpBottom then
    begin
      tempExtension := ExtractFileExt( Text );
      if IEExtToFileFormat( tempExtension ) = ioJPEG then
        begin
          tempFileName := tempPtCephPath + Text;
          tempFileName := Copy(tempFileName, 1, Length(tempFileName) -3);
          tempFileName := tempFileName + 'iev';
          if FileExists(tempFileName) = True then
            begin
//              BackgroundColor := clSkyblue;
              Font.Color := clRed;
            end
          else
            begin
//              BackgroundColor := clWhite;
              Font.Color := clBlack;
            end;
        end;
    end;
end;

BackgroundStyle := bsSolid;