Код:
AssignFile(T,UIN +'.txt');
{$I-}
Append(T);
if(IOResult <> 0) then ReWrite(T);
WriteLn(T, 'От ' + GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') пришло сообщение: [' + Msg + ']');
CloseFile(T);
не могу понять что за фигня почему файл перезаписывается, по идее если его нет он должен создать а дальше уже добавление