Clases: Create and destroy

[jlrbotella]

Hola amigos:

Tengo creada una clase con un constructor create y un destructor destroy. Lo que sucede es cuando hago un free de esta clase no la elimina.

¿Tengo que crear un método free?.

Ej:

Código Delphi [-]
TConsultarCliente = class
  private
    Conexion : TIfxConnection;
  public
    function ConsultarCliente(empresa : integer; cliente :integer) : TDataset;
    constructor Create(Conexion : TIfxConnection);
    destructor Destroy;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ConsCli : TConsultarCliente;
  Dataset : TDataset;
begin
  ConsCli := TConsultarcliente.Create(form1.IfxConnection1); 
  Dataset := ConsCli.ConsultarCliente(1,5);
  ConsCli.Free;
end;