Duvida com POO

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.