procedure TForm1.Button1Click(Sender: TObject);
begin
MySQL56Connection1.Hostname := 'localhost';
MySQL56Connection1.DatabaseName:='DB';
MySQL56Connection1.UserName:='root';
MySQL56Connection1.Transaction:=SQLTransaction1;
SQLTransaction1.Database:=MySQL56Connection1;
SQLQuery1.Database:=MySQL56Connection1;
SQLQuery1.Transaction:=SQLTransaction1;
SQLQuery1.SQL.Text:='SELECT * FROM MyTable';
Datasource1.dataset:=SQLQuery1;
DBGrid1.DataSource:=DataSource1;
MySQL56Connection1.Open;
If MySQL56Connection1.Connected then
begin
Label1.caption:='connected';
end;
end;