Problema Definiendo Clase en Free Pascal

[roman]

Yo no sé si tenga que ver o no, pero es que hay varios errores en el código que presentas.

1. El procedimiento MostrarUsuario debe implementarse así:

Código Delphi [-]
procedure TUsuario.Mostrar_Tusuario;
begin
  ...
end;

2. Hay un ; antes de un else, que no debe ir.

3. Falta un ; en

Código Delphi [-]
var
  Geru: Tusuario

Entonces, ¿qué tal si corriges primero todo eso y ya luego vemos? Porque en FreePascal no sé, pero en Delphi sí o sí debe compilar eso.

// Saludos