Execute('CREATE USER "TFR"  PASSWORD ''tfr''  DESCRIPTION ''TfR Conversion''');
Execute('GRANT "Administrators"  TO "TFR"');
Execute('CREATE USER "TfRLogon"  PASSWORD ''TfR Logon''  DESCRIPTION ''TfR Logon User''');
Connected := False;
LoginUser := 'TFR';
LoginPassword := 'tfr';
Connected := True;
Execute('DROP USER "Administrator"');