Polaczenie z MySQL przy pomocy SimpleMySQL

Probuje wkorzystac ze zrodla SimpleMySQL do laczenia sie z baza danych lecz nic nie pojawia sie w Memo ??

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  SimpleMySQL, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  var
    SimpleMySQL: TSimpleMySQL;
    q,w:integer;
  begin
    SimpleMySQL := TSimpleMySQL.Create;
    SimpleMySQL.Host := 'localhost';
    SimpleMySQL.User := 'login';
    SimpleMySQL.Password := 'haslo';
    SimpleMySQL.SelectDatabase('moja_baza');
    if SimpleMySQL.Query('SELECT * FROM tabela') then begin
      for q := 0 to SimpleMySQL.QueryResult.RowsCount -1 do begin
        for w := 0 to SimpleMySQL.QueryResult.FieldsCount -1 do begin
          Memo1.Lines.Add(SimpleMySQL.QueryResult.Rows[q].Fields[w].Name + ' : ' +
            SimpleMySQL.QueryResult.Rows[q].Fields[w].Value);
        end;
      end;
    end;
  end;

end.

oczywiscie ten plik zawarty jest w folderze tym samym co pliki SimpleMySQL.

Co trzeba jeszcze zrobic zeby sie polaczyc z lokalna baza MySQL ??

Pozdrawiam i dzieki za pomoc

A czy tu przypadkiem nie trzeba użyć, po podaniu treści zapytania SQL, albo Active := tre; albo Execute; :> ??

postepowalem zgodnie z instrukcja http://4programmers.net/Delphi/Kody_źródłowe/SimpleMySQL.zip
i czegos takiego nie doczytalem, a w ktorym miejscu kodu mialbym to dodac ??
I czy kompilator nie bedzie sie czepial bledu ??

wysypuje sie dokladnie w tym miejscu:

Unit1
... if SimpleMySQL.Query('SELECT * FROM tabela') then...

SimpleMySQL

...function TSimpleMySQL.Query(q: String): Boolean;
var
  i, j: Integer;
begin
  mysql_query(@MySQL, PChar(q));
  pResult := mysql_store_result(@MySQL);

<b>  if pResult = nil then begin
    Result := False;
    Exit;</b>
  end else
    Result := True;....

i tym samym konczy wykonywanie ?

P.S. sorry ze pisze jeden post po drugim ale moze ulatwi wam to zrozumienie mojego problemu.

ZEOSLib