[v1s2222]

Код:

AssignFile(myFile,'Log.txt');
{$I-}
  Reset(myFile);
  if(IOResult <> 0) then // если файла нет, или есть ошибка, то создаю новый фал:
    ReWrite(myFile);
{$I+}
WriteLn(myFile,' '+(t)+' Было выдано: ' + FloatToStr(v) + 'руб. !');
CloseFile(myFile);