Duvida com POO

[janir.matheus 0]

Bom dia,

 

Preciso de ajuda ajuda para resolver o problema de SIGSEGV, basicamente tennho um zconection dentro de uma classe e recebo erro quando tento acessá-lo. Segue um trecho da classe:

unit unt_classconexao;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, ZConnection, ZDataset;

type

  { tConexao }

  tConexao = class
    private

    public
      vConector : TZConnection;
      function Listar_Usuarios:TZReadOnlyQuery;
      procedure Conectar_Banco;
  end;

implementation

{ tConexao }

function tConexao.Listar_Usuarios: TZReadOnlyQuery;
var zrquery : TZReadOnlyQuery;
begin
  Conectar_Banco;
  try
    zrquery := TZReadOnlyQuery.Create(nil);
    zrquery.Connection := vConector;
    zrquery.SQL.Clear;

    zrquery.SQL.Text := 'SELECT * from tbl_profissionais';

    zrquery.Open;
    Listar_Usuarios := zrquery;
  finally
  end;
end;

procedure tConexao.Conectar_Banco;
begin
  //vConector := TZConnection.Create(nil);
  vConector.HostName := 'localhost';
  vConector.Port     := 3306;
  vConector.Database := 'Caps';
  vConector.Protocol := 'mysql-5';
  vConector.User     := 'root';
  vConector.Password := '';
  vConector.Connected := true;
end;

end.

Após isso tento fazer uso dessa classe para popular um DBGrid:

unit unt_frmprincipal;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, Menus, DBGrids,
  ZConnection, unt_classconexao;

type

  { Tfrm_principal }

  Tfrm_principal = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    MainMenu_frmPrincipal: TMainMenu;
    MenuItem_AplicativoSair: TMenuItem;
    N1: TMenuItem;
    MenuItem_AplicativoLogin: TMenuItem;
    MenuItem_Aplicativo: TMenuItem;
    procedure MenuItem_AplicativoLoginClick(Sender: TObject);
  private

  public
    vConexao : tConexao;
  end;

var
  frm_principal: Tfrm_principal;

implementation

{$R *.lfm}

{ Tfrm_principal }

procedure Tfrm_principal.MenuItem_AplicativoLoginClick(Sender: TObject);
begin
  //vConexao := tConexao.Create;
  DataSource1.DataSet := vConexao.Listar_Usuarios;
end;

end.

A mensagem de erro que recebo dá a entender que o problema ocorre logo que o zconnection começa a ser configurado, como vocês podem ver pelos trechos comentados eu tentei instanciar o componente também sem sucesso. Não tenho experiencia com POO e tenho certeza que estou cometendo um erro bobo, então peço uma explicação sobre como resolver isso. Agradeço de antemão a quem puder me ajudar.

 

PS. Estou usando o Lazarus.