教えてください

for(int i = 0; i < ListBox1->Count; i++)
{
AnsiString temp = ListBox1->Items->Strings[i];
TIdAttachment(IdMessage1->MessageParts, temp);
}
IdSMTP1->Send(IdMessage1);

受信した添付ファイル名が文字化けしてしまいます。
どうすればよいのでしょうか？