Query: Parameter nicht gefunden

[guidok]

Warum funktioniert das nicht?

Delphi-Quellcode:

procedure TSQLConnection.CreateDB(DBName: string);
const
  csql='DECLARE @DBNAME VARCHAR(255)'#13
      +'SET @DBNAME=:PDBNAME'#13
      +'USE MASTER'#13
      +'IF DB_ID (N @DBNAME) IS NULL'#13
      +'CREATE DATABASE @DBNAME';
begin
  if Connection.Connected then
  try
    Query.Active:=False;
    Query.SQL.Clear;
    Query.SQL.Text:=csql;
    Query.Prepared:=True;
    Query.Parameters.ParamValues['PDBNAME']:=DBName;
    Query.ExecSQL;
  except
    //nichts zu tun
  end;
end;

Ich bekomme die Meldung "Parameter PDBNAME nicht gefunden. Gibt es eine andere Möglichkeit Werte in den SQL Text zu bekommen?