[[mightydragonlor]]

Hola a todos, lo que estoy intentando hacer es convertir código C#.Net a Delphi Win32, la siguiente es una conexion a una BD, no es para la misma base de datos, la de C# es para SQL Server 2005, para el caso de Delphi quiero conectarlo a Firebird a travez de los IBX.
C#
Conexion

    public class Conexiones 
    { 
        public SqlConnection getconexion(string claveConexion) 
        { 
                string strConn = ConfigurationManager.ConnectionStrings[claveConexion].ToString(); 
                SqlConnection conn = new SqlConnection(strConn); 
                conn.Open(); 
                return conn; 
        } 
 
    }

ExecuteNonQuery

    public class ExecuteNonQuery 
    { 
        public bool Actualizaciones(string Procedimiento, SqlParameter[] Parametros, SqlConnection Cn) 
        { 
            SqlCommand oCmd = new SqlCommand(); 
            oCmd.CommandType = CommandType.StoredProcedure; 
            oCmd.CommandText = Procedimiento; 
            oCmd.Connection = Cn; 
            foreach (SqlParameter NumeroParametro in Parametros) 
                oCmd.Parameters.Add(NumeroParametro).Value = NumeroParametro.Value; 
            oCmd.ExecuteNonQuery(); 
            return true; 
 
        }

Hasta ahora solo llevo esto en delphi, pero me encuentro un poco perdido, espero me puedan ayudar.

Código Delphi [-]
unit UnitData; 
 
interface 
 
Uses 
Classes, 
Controls, 
Dialogs, {Cuadros dialogo} 
DB, 
IBStoredProc, 
IBDatabase; {Base de Datos} 
 
Type 
  TConector = Class 
    Public 
      function Conectar(Database: TIBDatabase; Transaction: TIBTransaction;Path: String;User: String;Password: String): Boolean; 
  End; 
 
  TExecuteNonQuery = Class 
    Public 
      function Actualizar(Procedimiento: TIBStoredProc;Nombre: String;Parametros: TParam;Database: TIBDatabase): Boolean; 
  End; 
 
implementation 
 
 
function TConector.Conectar(Database: TIBDatabase;Transaction: TIBTransaction;Path: string;User: string;Password: string): Boolean; 
begin 
 
With Database do 
  begin 
  DatabaseName := Path; 
  LoginPrompt := False; 
  Params.Clear; 
  Params.Add('user_name='+User); 
  Params.Add('password='+Password); 
  DefaultTransaction := Transaction; 
  Open; 
  end; 
 
With Transaction do 
  begin 
    AutoStopAction := saRollBack; 
    DefaultAction := TACommit; 
    Active := true; 
  end; 
 
end; 
 
function TExecuteNonQuery.Actualizar(Procedimiento: TIBStoredProc; Nombre: string; Parametros: TParam; Database: TIBDatabase): Boolean; 
begin 
With Procedimiento do 
  begin 
    Database := Database; 
    StoredProcName := Nombre; 
  end; 
end; 
 
end.