procedure TForm1.ImageEnMView1GetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString;
  Font: TFont; var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor; var TruncSide: TIEMTruncSide);
begin
  if Position = iemtpTop then
    Font.Color := clRed;
  if Position = iemtpBottom then
    Font.Color := clBlue;
  if Position = iemtpInfo then
    Font.Color := clGreen;
end;