type
  PData = ^TData;
  TData = record
    j: integer;
    strPath: string;
    IdMessage2: TIdMessage;
  end;
// далее в процедуре:
                  New(thData);
                  thData^.j := j;
                  thData^.strPath := strPath;
                  thData^.IdMessage2 := IdMessage1; // почта
                  hThread := CreateThread(nil,  0 , @Potok, thData,  0 , ThreadID);
// и в потоке пишу:
   strFile := TIdAttachment(thData^.IdMessage2.MessageParts.Items[thData^.j]).FileName; 
// тут программа говорит 'List out of bounds(2)' ???