헤...
암도 안갈켜 주는 거인데... 올립니다.
제가 델마당에서 얻은게 많아서... 쿠쿠...
원하시는게 맞는지..
로그파일 남기는 프로시져 입니다.

Procedure Tform1.WriteLog(str:string);
var
  T_file  : string;
  In_File : TextFile;
begin
    if not DirectoryExists('C:log') then ForceDirectories ('C:log');
    T_file := 'C:log'+ formatdatetime('yyyymmdd',now) + '.Log';
    AssignFile(IN_File, T_file);
    {$i-}
    if Not FileExists(T_file) then ReWrite(IN_File) else Append(IN_File);
    {$i+}
    if IoResult=0 then
    Begin
        str := formatdatetime('"["hh":"nn":"ss"]"',now())
               + Str;
        writeln(IN_File,str);
        CloseFile(In_File);
    End;
end;