Çalışma Anında Database Oluşturma

[sadikacar60]

internetden bulduğum bir örneği uygulayarak çalışma anında tablo oluşturmak istiyorum lazaruz veya delphi7 ikisindede deniyorum.
kod hata vermiyor ama tabloda oluşmuyor neyi eksik yapıyorum acaba 
saygılarımla

procedure TfrmMain.Button1Click(Sender: TObject);
var
yol:string;
sifre:string;
begin
try
yol:=ExtractFilePath(Application.Exename);

sifre:='masterkey';

IBConnection1.Connected:=false;
IBConnection1.HostName:='localhost';
IBConnection1.DatabaseName:=yol+'system\db\VT_TURNUVA.FDB';
IBConnection1.Params.Values['User_Name']:='SYSDBA';
IBConnection1.Password:=sifre;
IBConnection1.Params.Values['lc_ctype']:='WIN1254';
IBConnection1.Connected:=True;
SQLTransaction1.Active:=True;
SQLQuery1.Active:=True;


SQLQuery1.Close;

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('CREATE TABLE "VASIF" ("KNO" DOUBLE PRECISION NOT NULL,');
SQLQuery1.SQL.Add('"VASIFLAR" VARCHAR(50) CHARACTER SET WIN1254 COLLATE PXW_TURK,');
SQLQuery1.SQL.Add('"YEVMIYE" DOUBLE PRECISION,');
SQLQuery1.SQL.Add('"TRH" TIMESTAMP,');
SQLQuery1.SQL.Add('PRIMARY KEY ("KNO"))');
SQLQuery1.Prepare;
SQLQuery1.ExecSQL;
Finally
SQLQuery1.Close;
end;
ShowMessage('OK');
end;