please, look down my code and see whether is possible or not to do this.
Code:
IControleServico = interface
['{A76DC1D9-2737-4A94-91F2-ECFF002EE82A}']
procedure AddNovoCliente(pSession_ID:String);
end;
TListViewClient = class(TListView, IControleServico)
private
{ Private declarations }
visitors, waitingForChat, waitingForResponse : integer;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;