vFileText := '';
   if Position = iemtpBottom then begin
      with FcdsAttachments do
         if locate('user_file_name', Text, []) then begin
            if FieldByName('tracer_nbr').asString > '' then begin
               vFileText := 'Order Nbr ' + FieldByName('tracer_nbr').asString;
               Font.Color := clBlue //does not work
            end else  begin
               vFileText := 'No order found';
               Font.Color := clRed 
            end
         end;

      Text := vFileText
   end