من در ابتدا یه نرم افزار ساده Call Manager با امکان نمایش Caller ID در دلفی طراحی کردم، بعد از تست شماره نمایش نمیداد، بعد یه نرم افزار جدا فقط برای نمایش شماره طراحی کردم، ولی متاسفانه بازم جواب نگرفتم!!!!
تو این نرم افزار ساده در* Form ، یه Lable با Caption: Phone number ، یه Edit برای نمایش شماره، دو تا Botton با captionهای Answer و Hang up، برای پاسخگویی و قطع تماس ، استفتده کرده ام.
برای Answer کد زیر:
procedure TForm2.BAnswerClick(Sender: TObject
var
; Ret:Integer
begin
; (Ret:=KDPhone1.Answer(0***
********** if (Ret0) then
;((ShowMessage("Error:"+#13+KDPhone1.Get ErrorMsg(Ret**
end

برای Hang up :
procedure TForm2.BHangupClick(Sender: TObject
var
; Ret:Integer**
* begin
; Ret:=KDPhone1.Hangup *
** if (Ret0) then
*;(( ShowMessage("Error:"+#13+KDPhone1.GetErr orMsg(Ret)**
;end

از کامپوننت KDTele هم KDPhone رو استفاده کردم و در رویداد OnCallerID آن کد زیر:
procedure TForm2.KDPhone1CallerID(Sender: TObject; Error: Integer; Number
; ( Name: WideString; CallHandle: Integer
begin
;* EPhoneNum.Text:=Number
end
*