1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

const
 FileName = 'C:\statistik_filname.txt';
var
 S: String;
 A: array[#0..#255] of Integer;
 I: Integer;
 C: Char;
begin
  S := 'Hallo, Welt!';
  FillChar(A, SizeOf(A), 0);
  for I := 1 to Length(S) do
   inc(A[UpCase(S[I])]);
  with TStringList.Create do
   try
    Add(Format('%s -Statistik-',[FileName]));
    for C := 'A' to 'Z' do
     Add(Format('%s %d',[c,A[c]]));
    SaveToFile(FileName);
   finally
    Free;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

function SaveStringToFile(Str, Filename, FileEx: String): boolean;
var
  TF: Text;
begin
  result := false;
  if (Filename = '') then
    exit;
  assignfile(TF, Filename);
  if fileexists(Filename) then
    append(TF) else
      rewrite(TF);
  try
    writeln(TF, Str);
  finally
    CloseFile(TF);
    Result := true;
  end;
end;

function WriteLogFiles(Strings: TStrings; Filename, FileEx: String): boolean;
var
  count, i: integer;
  str: string;
begin
  result := false;
  count := 0;
  str := '00000';
  while fileexists(Filename + str + FileEx) do
    begin
      inc(count);
      str := inttostr(count);
      for i := 1 to (5 - length(str)) do
        str := '0' + str;
      if length(str) > 5 then
        exit;
    end;
  Strings.savetofile(Filename + str + FileEx);
  result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveStringToFile(edit1.text, 'C:\TextFile', '.txt') then
    showmessage('String erfolgreich in Datei geschrieben !');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if WriteLogFiles(Memo1.Lines, 'C:\Log', '.txt') then
    showmessage('Log Datei erfolgreich geschrieben !');
end;					

1:
2:
3:
4:

  s := 'AsasasasasAS';
  fm := TFileStream.Create('C:\bla.txt',fmcreate or fmopenreadwrite);
  fm.write(s[1],length(s));
  fm.free;					

1:

fm.write(s[1],length(s));