为什么我把可执行文件改名后，在任务栏上显示不一样呢？

Question

Application.Title := '上海';

Answer 1

Application.Title := '上海';

Answer 2

Application.Title := '上海';

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
{$J+}
const
  cTitle: WideString = '明天会更美！';
{$J-}
var
  vWideChar: WideChar;
begin
  Application.Title := cTitle;
  vWideChar := cTitle[1];
  Delete(cTitle, 1, 1);
  cTitle := cTitle + vWideChar;
end;

Answer 4

procedure TForm1.Timer1Timer(Sender: TObject);
{$J+}
const
  cTitle: WideString = '明天会更美！';
{$J-}
var
  vWideChar: WideChar;
begin
  Application.Title := cTitle;
  vWideChar := cTitle[1];
  Delete(cTitle, 1, 1);
  cTitle := cTitle + vWideChar;
end;