var
    TemTxt: TextFile;
    TemName: string;
    i: Integer;
    begin
    TemName := ‘tongji.txt’;
    TemName := ExtractFilePath(ParamStr(0)) + TemName;
    if not FileExists(TemName) then
    begin
    AssignFile(TemTxt, TemName);
    Rewrite(TemTxt);
    for I := 0 to TemString.Count - 1 do
    begin
    Writeln(TemTxt, TemString[i]);
    end;
    CloseFile(TemTxt);
    end;
    end;