procedure TfrmStartSendMsg.WriteLog(txt:String);
var
TF: TextFile;
LogFile: string;
sysDir:string;
begin
sysDir:=extractfilepath(application.ExeName );
if not directoryexists(exeDir+'log/') then
createdir(exeDir+'log/');
logfile:=exeDir+'log/'+formatdatetime('yyyymmdd',now)+'.log';
AssignFile(tf,logfile);
if fileexists(logfile) then
append(tf)
else
rewrite(tf);
writeln(tf,txt);
closefile(tf);
end;