probleme mit trigger

[DelphiDeveloper]

wie bei SPs, etwa so:

Code:

CREATE TRIGGER TESTE_AI0 FOR TESTE
ACTIVE AFTER INSERT POSITION 0
AS
DECLARE VARIABLE V_ID INTEGER;
DECLARE VARIABLE V_TESTFELD VARCHAR(10);
DECLARE VARIABLE V_DATUM DATE;
BEGIN
  FOR SELECT ID, TESTFELD, DATUM FROM TESTTABLE T INTO
   :V_ID,  :V_TESTFELD, :V_DATUM

  DO
  BEGIN
    INSERT INTO TEST1(ID) VALUES (:V_ID);

  END
END