1.Write log entries to file.
// Begin of Logger
Uses SysUtils;
procedure Logger(MsgText: string);
var
Flog : textfile;
begin
AssignFile(FLog, 'c:/test.txt');
if FileExists('c:/test.txt') then Append(FLog) else Rewrite(FLog);
try
writeln(FLog, FormatDateTime('mm/dd/yy hh:nn:ss', Now) + MsgText);
Flush(FLog);
finally
CloseFile(FLog);
end;
end;
// end of Logger