Problem med Append og I/O Error 32

Nogen der kan fortælle mig hvorfor jeg får en I/O Error 32 i linien med Append(hs); i nedenstående kode ?


function dead(n1,n2: integer) : integer;
var
  Finished : Boolean;
  hs: TextFile;
  v,ii: Integer;
  name,filename: string;
begin

  timershift(False,False,False,False,False);

  v:= MessageDlg('Du er død. Vil du gemme din score?',mtConfirmation,
  [mbYes,mbNo],0);
  if (v = 6) then
    begin
      repeat
        name:= InputBox('Dit navn','Skriv dit navn','Mit navn!');
      until name <> '';
      filename:= 'highscore.txt';
      AssignFile(hs,filename);
      if not FileExists(filename) then
        begin
        Rewrite(hs);
        WriteLn(hs,name+':'+inttostr(p));
        CloseFile(hs);
        end
      else
        begin
        Append(hs);
        WriteLn(hs,name+':'+inttostr(p));
        CloseFile(hs);
        end;

      form3.listbox1.items.add(name);
      form3.listbox2.items.add(inttostr(p));

begin
  repeat
      Finished := True;
      For ii:=1 to Form3.ListBox2.Count-1 do
      begin
        if (length(form3.ListBox2.Items.Strings[ii]) = 0) then
          begin
            break;
          end;
        if (StrToInt(Form3.ListBox2.Items.Strings[ii]) > StrToInt(Form3.ListBox2.Items.Strings[ii-1])) then
          begin
              Form3.ListBox2.Items.Move(ii,ii-1);
              Form3.ListBox1.Items.Move(ii,ii-1);
              Finished := False;
              break;
          end;
      end;
  until (Finished);
end;
    end;
  form2.canvas.brush.Color:= clTeal;
  form2.canvas.pen.color:= clTeal;
  form2.canvas.Rectangle(0,0,600,600);
  a:= 300;
  b:= 300;
  p:= 0;

  form2.label1.caption:= inttostr(p)+' points';

  ZeroMemory(@kk, SizeOf(kk));

end;