et pascal problem

følgende er en kode som skifter mellem 25 og 50 linier i et program, dette gøres vedhjælp af F1 tasten, så vises Ø som ¥ og lille ø som ¢.
Er der nogle der har en god ide til dette problem.

Procedure TAppStd.SetVideoMode(NewMode : Word);
begin
  if Not Hasp1 then DisableCommands([cmSave, cmFind, cmDelete]);
  NewMode := NewMode Or smCo80;
  if NewMode and smFont8x8 <> 0
  then ShadowSize.x := 1
  else ShadowSize.x := 2;
  SetScreenMode(NewMode);
  if Not HaspGetCode then Halt(99);
  ReDraw;
end;


Procedure TAppStd.SetVideoMode50(TurnOn: Boolean);
begin
  if TurnOn then begin
    if VideoMode50Count = 0 then begin
      SaveVideoMode50 := ScreenMode;
      SetVideoMode(smFont8x8);
      DisableCommands([cmVideoMode]);
    end;
    Inc(VideoMode50Count);
  end else begin
    Dec(VideoMode50Count);
    if VideoMode50Count = 0 then begin
      EnableCommands([cmVideoMode]);
      SetVideoMode(SaveVideoMode50);
    end;
  end;
end;