var LogFile :tLogFile;
begin

  LogFile := TLogFile.create('c:\temp\log1.txt',false);
  try
    LogFile.AddSTr('мама мыла раму');
  finally
    LogFile.free;
  end;
end.