Datenbank erstellen klappt nicht

[gope]

Hi,

ich habe dieses MySQL in Delphi tutorial aus dem Forum.

Ich hab aber schon anfangs Schwierigkeiten.

Delphi-Quellcode:

const
  HOST = 'localhost';
  PORT = 3306;
  USER = 'root';
  PW = '1234';

  SEP = ',';
  const
  DBNAME = 'AdressDB';
implementation

{$R *.dfm}

function Connect(Descriptor: PMYSQL; const Host, User, PW, DB: string;
Port:
Integer): PMYSQL;
begin
result := mysql_real_connect(Descriptor, PChar(Host), PChar(User),
PChar(PW),
PChar(DB), PORT, nil, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Descriptor := mysql_init(nil);
Descriptor := Connect(Descriptor, HOST, USER, PW, '', PORT);
end;

procedure TForm1.Button1Click(Sender: TObject);
var query:PChar;
begin
  query := 'CREATE DATABASE' + ' ' + DBNAME;
  if mysql_real_query(Descriptor, PChar(query), length(query)) = 0 then
    showmessage('alles klar');
end;

Das klappt nicht... der mysql server ist normal installiert worden und ich denke ich hab alles so gemacht wie es sein soll.
oben bei uses binde ich noch mysql ein wie es in dem tut stand.. falls jmd davon ahnung hat kann der mich vielleicht in icq adden?=

das is der letzte teil meiner facharbeit das wäre nett meine nummer 172710628 oder sonst hier helfen? danke

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]