[ALexandr555]

Код:

  AssignFile(T,UIN +'.txt');
{$I-}
Append(T);
  if(IOResult <> 0) then ReWrite(T);
WriteLn(T, 'От ' + GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') пришло сообщение: [' + Msg + ']');
CloseFile(T);

не могу понять что за фигня почему файл перезаписывается, по идее если его нет он должен создать а дальше уже добавление

[ALexandr555]

уже решил... надо был добавить {$I+}