Себе про Delphi

FuncLog.pas:

var daLogFile: TextFile;

procedure InitLog(fname:string; Lio:Boolean);
begin
if Lio then begin
AssignFile(daLogFile,fname);
if FileExists(fname) then Append(daLogFile) else Rewrite(daLogFile);
end;
end;

procedure WriteLog(Str:String; Lio:Boolean);
begin
if Lio Then begin
str:=DateToStr(now)+' '+TimeToStr(now)+' '+str;
Writeln(daLogFile,str);
Flush(daLogFile);
end;
end;

// Пример использования:
InitLog(daLogFileName, daLIO);
Writelog('Application started', daLIO);