Может кому то поможет
Для Indy 10
Uses ....,idCharSets....;
type
Tindystub = class(Tobject)
public
procedure OnInitISO(var VHeaderEncoding: Char; var VCharSet: string);
end;
procedure SendMail(........);
begin
......
Mess:=TIdMessage.Create(nil);
indystub:=Tindystub.Create;
...