Komponen ZQuery Jadi-jadian di Delphi

var Qf:TZQuery;
begin
  try
    Qf:=TZQuery.Create(nil);
    Qf.Connection:=ZConnection1;

    Qf.Close;
    Qf.SQL.Text:='';
    Qf.ExecSQL;
  except

    // do nothing
  end;
end;