Quell'esempio non funziona con i componenti Zeos.
Guarda il codice sottostante e sistemalo nell'esempio che ti ho dato, i parametri corretti li puoi sapere solo tu.
MyConn.HostName:='localhost'; //metti localhost solo se il database mysql gira sulla stessa macchina su cui stà girando l'eseguibile, altrimenti metti l'indirizzo ip del server che ha installato mysql
MyConn.Database:='qui metti il nome del tuo database mysql';
MyConn.User:='qui metti il tuo utente a mysql';
MyConn.Password:='qui metti la tua password a mysql';
MyConn.Protocol:='mysql-5';
procedure TForm1.ShellListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
edit1.Caption := ShellListView1.GetPathFromItem(item);
end;