Envio de Email via MAPI

Pessoal,
Estou tentando usar o código do nosso amigo Daniel Freitas, mas algo está ocorrendo e não tenho idéia do que seja:

procedure TDMMAPIMail.AddToAddressList(AnAddressList: TIDEMailAddressList; AStringList: TStringList);

var
tempStr: String;
addressItem: TIdEMailAddressItem;
begin
for tempStr in AStringList do
begin
if(Trim(tempStr) <> ´´) then
begin
addressItem := AnAddressList.Add;
addressItem.Address := tempStr;
addressItem.Name := tempStr;
end;
end;
end;

Erro ao compilar: Operator not applicable to this operand type