[fpc-pascal]Problem about TMysqlDataset

[mili]

Hello,

  Can anybody tell me why the following codes can't work?

>>>>>>
var
  Data : TMysqldataset;
begin
  Data:=TMysqlDataset.Create(nil);
  With Data do begin
    Host:='localhost';
    Database:='mysql';
    User:='root';
    PassWord := '******';
    SQL.text := 'select * from user';
    Open;//Here an error "Internal error." occurs
    Close;
    Free;
  end;//with Data do
<<<<<<

  How to use TMysqldataset correctly?
  (The test program $fpc-1.0.7-src/packages/base/mysql/testdb.pp can work 
well.)

  Yours,
  mili