Foros Club Delphi - Ayuda de C#.Net a Delphi Win32

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

Código:

    public class Conexiones 

    { 

        public SqlConnection getconexion(string claveConexion) 

        { 

                string strConn = ConfigurationManager.ConnectionStrings[claveConexion].ToString(); 

                SqlConnection conn = new SqlConnection(strConn); 

                conn.Open(); 

                return conn; 

        } 

 

    }

ExecuteNonQuery

Código:

    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.