Criando uma Classe

Pessoal estou desenvovlendo um FrameWork para meus projetos, quando fui criar uma Classe Usuario, fui programando e compliou não deu erro, hint ou warnings, aparentemente não está nada errado porém as propriedades que eu criei neta classe que são Login e Usuario eu não consigo acessar elas não são criada através do método create e nem as funções que mudam seus respectivos valores. O que está errado neste classe já tentei de tudo.

Aqui está minha classe.

A Função Set_Configuracoes eu criei só para testar e Executa_Login
é a função que eu quero usar realmente.

unit Usuario;

interface

uses Forms, Controls, SysUtils, Classes, Windows, Messages, Dialogs;

type
TUsuario = class(TObject)
private
{ Private declarations }
FUsuario : string;
FLogin : string;

procedure Set_Login(Value : string);
procedure Set_Usuario(Value : string);

protected
{ Protected declarations }
public
{ Public declarations }
constructor Create;
destructor Destroy; override;
property Login : string read FLogin write Set_Login;
property Usuario : string read FUsuario write Set_Usuario;

//function Executar_Login(ULogin, USenha : string): Boolean;
procedure Set_Configuracoes(Ulogin, USenha : string);
published
{ Published declarations }
end;

implementation

//uses IBDatabase, DB, IBCustomDataSet, IBQuery;

constructor TUsuario.Create;
begin
inherited Create;
FLogin := EmptyStr;
FUsuario := EmptyStr;
end;

destructor TUsuario.Destroy;
begin
inherited Destroy;
end;

procedure TUsuario.Set_Login(Value: string);
begin
if Value <> FLogin then FLogin := Value;
end;

procedure TUsuario.Set_Usuario(Value: string);
begin
if Value <> FUsuario then FUsuario := Value;
end;
(*
function TUsuario.Executar_Login(ULogin, USenha: string): Boolean;
var
qryUsuarios : TIBQuery;
begin
qryUsuarios := TIBQuery.Create(nil);
qryUsuarios.Close;
qryUsuarios.Database := dtm_Balance.dtb_Balance;
qryUsuarios.SQL.Clear;
qryUsuarios.SQL.Text := ´ SELECT NOME_USUARIO, LOGIN, SENHA ´
+ ´ FROM USUARIO ´
+ ´ WHERE LOGIN = :LOGIN ´
+ ´ AND SENHA = :SENHA ´;
qryUsuarios.ParamByName(´LOGIN´).AsString := ULogin;
qryUsuarios.ParamByName(´SENHA´).AsString := USenha;
qryUsuarios.Open;

if not qryUsuarios.IsEmpty then
begin
Result := True;
FLogin := qryUsuarios.FieldByName(´LOGIN´).AsString;
FUsuario := qryUsuarios.FieldByName(´NOME_USUARIO´).AsString;
end
else
begin
Result := False;
Application.MessageBox(´Login incorreto´, PChar(Application.Title), MB_OK + MB_ICONINFORMATION);
end;
end;
*)

procedure TUsuario.Set_Configuracoes(Ulogin, USenha: string);
begin
FLogin := Ulogin;
FUsuario := USenha;
end;

end.