Интерессно, а как ты загрузишь что-то в класс TStringList, не создаве его в памяти как объект? о_О
в начале напиши:
Tmp := TStringList.Create;
APost := TStringList.Create;