Kein Connect zu MySQL-DB zur Runtime

[Captnemo]

Hi,

ich versuche mit folgendem Code einen Connect zu einer MySQL-DB aufzubauen. Klappt aber nicht, und es kommt auch keine Fehlermeldung.
Baue ich die Verbindung über die OI mit exakt den gleichen Parametern auf, kann ich problemlos connecten. Hat irgendwer eine Idee, woran das liegen könnte?

Code:

  sdtbs1.LoginPrompt := False;
  sdtbs1.ServerType := stMySQL;
  sdtbs1.SessionName := 'Default';
  sdtbs1.DatabaseName := 'GMManuell';
  sdtbs1.Params.Clear;
  sdtbs1.Params.Add('USER NAME='+dbuser);
  sdtbs1.Params.Add('PASSWORD='+dbpass);
  sdtbs1.RemoteDatabase := dbhost+':gm';
  sdtbs1.Connected:=True;
  ShowMessage('Connected: '+BoolToStr(sdtbs1.Connected, True));

mit dem gleichen Code mache ich das in einem Dienst, wo der connect problemlos klappt.
Der einzige Unterschied ist, dass ich im Dienst die das Databaseobject selber erzeugen und im Programm halt auf der Form zu liegen habe.
Aber da es in der anderen Anwendung funktioniert, muss es ja an mir liegen.