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
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