Dar formato a una cadena con vocales tildadas y otros caracteres

[noob]

Hola tengo por ejemplo la cadena 'inválido' y la tratar de mostrarla con un ShowMessage sale invĀilido

He probado con hacer:

Código Delphi [-]
Cadena := AnsiString(Cadena);

pero sigue igual.

Las cadenas las tengo en una unidad a parte así:

Código Delphi [-]
unit uMensajes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils; 

const
  Cadena1 = 'inválido';
  Cadena2 = 'contraseña';

implementation

initialization

end.

¿Cómo puedo arreglarlo?

Saludos.