Problema Definiendo Clase en Free Pascal

[dec]

Hola,

Yo lo que veo "raro" (luego de lo que comenta Seoane) es que estás definiendo una clase que cuenta con un método, pero, no implementas dicho método correctamente.

¿Dónde acaba? No acaba. Además parece que quieras usar en su interior varios miembros de la clase "TUsuario", pero, el procedimiento "Mostrar_Tusuario" no pertenece a dicha clase y no tendrá acceso a los miembros de esta así como así.

El asunto tendría que quedar más o menos así:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TUsuario = class
    procedure Mostrar();
  end;

{ TUsuario }

procedure TUsuario.Mostrar();
begin
  // Aquí muestras lo que sea
end;

var
  Usuario: TUsuario;

begin
  Usuario := TUsuario.Create();
  try
    // Aquí usas a Usuario
  finally
    Usuario.Free();
  end;
end.

Edito: Se me ha adelantado Román.