1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function SaveStringToFile(Str, Filename: String; doAppend: boolean): boolean;  
var
  f: textfile;
begin
  result := false;
  assignfile(f, Filename);
  try
    if (DoAppend) and (fileexists(Filename)) then append(f) else rewrite(f);
    write(f, Str);
    result := true;
  finally
    CloseFile(f);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

var s: string;
begin
  // kopiert die ersten 300 zeichen aus memo1 in die datei
  s:=memo1.text;
  if length(s) > 300 then s:=copy(s,1,300);  
  SaveStringToFile(s,'C:\test.txt',false); // hier wird die datei neu erstellt
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var s: string;
begin
  // kopiert die nächsten 300 zeichen aus memo1 in die datei
  s:=memo1.text;
  if length(s) > 600 then begin
    s:=copy(s,300,300);  
    SaveStringToFile(s,'C:\test.txt',true); // hier wird an die datei angehängt
  end;
end;					

1:
2:
3:
4:

mciSendString('Record sound', nil, 0, Handle);
mciSendString('Stop sound', nil, 0, Handle);
mciSendString(PChar('SAVE sound '+ verz + '[' +floattostr(zahl)  + '].wav'), nil, 0, Handle); // *
mciSendString('CLOSE sound', nil, 0, Handle);					

1:

mciSendString('"Record sound",,insert', nil, 0, Handle);