procedure TVCLScanner.PostUser(const Email, FirstName, LastName: WideString); 
var 
 Connection: TSQLConnection; 
 DataSet: TSQLDataSet; 
begin 
 Connection := TSQLConnection.Create(nil); 
 with Connection do 
 begin 
 ConnectionName := 'VCLScanner'; 
 DriverName := 'INTERBASE'; 
 LibraryName := 'dbexpint.dll'; 
 VendorLib := 'GDS32.DLL'; 
 GetDriverFunc := 'getSQLDriverINTERBASE'; 
 Params.Add('User_Name=SYSDBA'); 
 Params.Add('Password=masterkey'); 
 Params.Add('Database=milo2:D:\frank\webservices\umlbank.gdb'); 
 LoginPrompt := False; 
 Open; 
 end; 
 DataSet := TSQLDataSet.Create(nil); 
 with DataSet do 
 begin 
 SQLConnection := Connection; 
 CommandText := Format('INSERT INTO kings VALUES("%s","%s","%s")', 
 [Email, FirstN, LastN]); 
 try 
 ExecSQL; 
 except 
 end; 
 end; 
 Connection.Close; 
 DataSet.Free; 
 Connection.Free; 
end;