CREATE TABLE testtbl
(
  uid smallint NOT NULL,
  datin timestamp with time zone NOT NULL,
  CONSTRAINT pk_uid PRIMARY KEY (uid)
)

 with  ADOCommand1  do 
 begin 
  Connection := ADOConnection1;
  CommandText := 'insert into testtbl(uid, datin) values (?, ?);';
   with  Parameters.AddParameter  do 
   begin 
    Name := 'uid';
    DataType := ftSmallint;
    Direction := pdInput;
   end ;
   with  Parameters.AddParameter  do 
   begin 
    Name := 'datin';
    DataType := ftDateTime;
    Direction := pdInput;
   end ;
 end ;


  ADOCommand1.Parameters.ParamByName('UID').Value := StrToInt(Edit1.Text);
  ADOCommand1.Parameters.ParamByName('DatIn').Value := Now;
  ADOCommand1.Execute;