Создание собственного компонента. Несколько вопросов!

[NapalmRain]

Приветствую.

Пытаюсь создать свой компонент на основе TClientSocket.
Смысл в том, что бы добавить в исходный компонент несколько функция и пару тройку свойств.

Прочитал некоторое количество литературы по этому поводу, сложностей вроде никаких, но нюансы остались.

Необходима помощь.

Вот написал по аналогии с примером из интернета такого рода код.

содержание файла *.h

//---------------------------------------------------------------------------

#ifndef ClientSocket1H
#define ClientSocket1H
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <ScktComp.hpp>
//---------------------------------------------------------------------------
class PACKAGE TClientSocket1 : public TClientSocket
{
private:

AnsiString log;
AnsiString pass;

void __fastcall LogonOn(AnsiString LogData);
void __fastcall LogonOff();
void __fastcall SendData(AnsiString Senddat);

bool __fastcall SetLog(AnsiString login);
bool __fastcall SetPass(AnsiString password) ;

protected:
public:
        __fastcall TClientSocket1(TComponent* Owner);
__published:

__property AnsiString Login = {read = log,
write = SetLog };
__property AnsiString PassWord = {read = pass,
write = SetPass }; };

};
//---------------------------------------------------------------------------
#endif

Содержимое файла *.cpp

//---------------------------------------------------------------------------

#include <basepch.h>

#pragma hdrstop

#include "ClientSocket1.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TClientSocket1 *)
{
        new TClientSocket1(NULL);
}
//---------------------------------------------------------------------------
__fastcall TClientSocket1::TClientSocket1(TComponent* Owner)
        : TClientSocket(Owner)
{

}
//---------------------------------------------------------------------------
namespace Clientsocket1
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TClientSocket1)};
                 RegisterComponents("Internet", classes, 0);
        }

        bool __fastcall TNkEdit::SetLog(AnsiString login)
        {
                if (login != '') {
                log = login;
                return true;
                } else {
                return false;
                }
        }

        bool __fastcall TNkEdit::SetPass(AnsiString password)
        {
                if (password != '') {
                pass = password;
                return true;
                } else {
                return false;
                }
        }

        void __fastcall SendData(AnsiString Senddat)
        {
                //Здесь какие-то операции с текстом
                //возможно запихивание результата в буфер и оправка буфера вместо текста, но это не принципиально.
                //Socket->SendBuff(blabla);
                Socket->SendText("blabla");
        }

}
//-------------------------------------------------------------------------

Этот код, естественно не работает.

Но, подскажите пожалуйста, на сколько я далёк от истины? Где допустил ошибки?

И каким образом мне прописать собственные функции так, что бы они появились в результате во всплывающем списке нового компонента и как в этих функциях мне обращаться к свойству изначального класса Socket?

Так как в моём варианте билдер мне на эту строчку (Socket->Send...) ругается.

Заранее благодарю!

[Stilet]

что бы они появились в результате во всплывающем списке нового компонента

Описываешь их в разделе Publiс:

__publiс:
 __property AnsiString Login = {read = log,write = SetLog };
 __property AnsiString PassWord = {read = pass,write = SetPass }; };

void sendMe();
int ReceiveЧётоТам();

Тогда они появятся в списке достуных методов.

как в этих функциях мне обращаться к свойству изначального класса Socket?

Не помню точно как в Бильдере, но предположу по аналогии с Делфи inherit->функция

P.S. в Сях кажись для такого есть ключевое слово base, которое указывает на предка

[NapalmRain]

ReceiveЧётоТам();

Повеселила функция)

В любом случае спасибо, теперь хоть знаю, в какую сторону копать.