Добавить строку в текстовый файл. Выдает ошибку

var f:TObject;
begin
f:= TStringList.Create();
 f.LoadFromFile('kontrol.txt');
 s:='Hello word!';
 f.Add(s);
 f.SaveToFile('kontrol.txt');
 f.free;
end;

var
someFile: tStringList;
someStr: string;
begin
   someFile := tStringList.Create;
   someFile.LoadFromFile('D:\domeFile.txt');
   someFile.Strings[1] := someStr;
   someFile.SaveToFile('D:\domeFile.txt');
   someFile.Free;
end;

//Button1.click;
var
f1: TextFile;
begin
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'kontrol.txt');
Rewrite(f1);
Write('Hello World!');
СloseFile(f1);
ShowMessage('Файл готов');
end;

var
  f1: TextFile;
  FileName : String;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'kontrol.txt';
  AssignFile(f1, FileName);
  if FileExists(FileName) then
    Append(f1)
  else
    Rewrite(f1);
  Write('Hello World!');
  СloseFile(f1);
  ShowMessage('Файл готов');
end;

var
  f1: TextFile;
  FileName : String;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'kontrol.txt';
  AssignFile(f1, FileName);
  if FileExists(FileName) then
    Append(f1)
  else
    Rewrite(f1);
  Write(f1, 'Hello World!');
  СloseFile(f1);
  ShowMessage('Файл готов');
end;