Lazarus-code

procedure TForm1.FormCreate(Sender: TObject);
var

  Zcon1:TZConnection;
  zq:TZQuery;
  ds:TDataSource;
begin
  Zcon1:=TZConnection.Create(Nil);
  zq:=TZQuery.Create(Nil);
  ds:=TDataSource.Create(Nil);

  // for Zcon
  Zcon1.ClientCodepage:='UTF8';
  Zcon1.Database:='amahi';
  Zcon1.HostName:='localhost';
  Zcon1.LibraryLocation:='G:\programming\Lazrus_P\DataBase\Example2\libmysql.dll';
  Zcon1.Port:=3306;
  Zcon1.Protocol:='mysql-5';
  Zcon1.User:='root';
  Zcon1.Password:='';
  Zcon1.Connected:=True;

  //for zq
  zq.Connection:=Zcon1;
  zq.Active:=true;
  zq.SQL.Text:='SELECT * FROM  persian';
  zq.ExecSQL;
  ds.DataSet:=zq;

  //for dbgrid
  DBGrid1.DataSource:=Datasource1;
  DBGrid1.BiDiMode:=bdRightToLeft;
  DBGrid1.DataSource:=Datasource1;




end;

end.