کالر ایدی

با سلام
می خواهم شماره تماس گیرنده در برنامه ام نمایش داده شود مودمی که از آن استفاده می کنم
Modem type: Intel(R) 536EP V.92 Modem است. طبق تحقیقاتی که کردم این مودم از کالر ایدی پشتیبانی می کند
دستورات زیر را وارد کردم ولی جوابی دریافت نکردم لطفاً راهنمایی کنید . با تشکر
كامپوننت KDPhone را روي فرم قرار دادم، ابتدا بايد خط را انتخاب کنم :
کد:

lvRet:=KDPhone1.LineActive(0,TRUE);
if lvRet<>0 then
begin
KDPhone1.GetLineName(0,lvDeviceName);
ShowMessage('Error while activating the telephone device.'#13#10#13#10
+'Telephone device name: '+lvDeviceName+#13#10
+'Error message: '+KDPhone1.GetErrorMsg(lvRet));
end

سپس رويداد OnCallerID را به اين صورت تغيير دادم :
کد:

procedure TForm1.KDPhone1CallerID(Sender: TObject; Error: Integer; Number,Name: WideString; CallHandle: Integer);
begin
if Error<>0 then
MemoLog.Lines.Add('>Caller ID Error: ' + KDPhone1.GetErrorMsg( Error))
else
begin
MemoLog.Lines.Add('>Caller ID Number: ' + Number);
end;
end;

سلام و به جمع ما خوش آمدید.
من تا حالا با این کامپوننت کار نکردم ولی میشه مشکلی هم که برخوردین رو بگین ؟

مخابرات که در همه جا ایران در حال حاضر caller id ساپورت می کند ، وقتی کد زیر را اجرا کردم پیغام ( کالر ایدی پشتیبانی می شود) در صفحه memo ظاهر شد حال به نظر شما اشکال از کجاست؟؟؟

Var
Lvlinecaps : Tlinecaps;
Begin
KDphone1.GEtlineCaps(0,lvlineCaps);
If lccallerID in lvlineCaps then
Memo1.line.Add('کالر ایدی پشتیبانی می شود')
Else
Memo1.line.Add('کالر ایدی پشتیبانی نمی شود');

مشکل بدست اوردن شماره تماس گیرنده است
مخابرات که در همه جا ایران در حال حاضر caller id ساپورت می کند ، وقتی کد زیر را اجرا کردم پیغام ( کالر ایدی پشتیبانی می شود) در صفحه memo ظاهر شد حال به نظر شما اشکال از کجاست؟؟؟

Var
Lvlinecaps : Tlinecaps;
Begin
KDphone1.GEtlineCaps(0,lvlineCaps);
If lccallerID in lvlineCaps then
Memo1.line.Add('کالر ایدی پشتیبانی می شود')
Else
Memo1.line.Add('کالر ایدی پشتیبانی نمی شود');

مشکلم در بدست آوردن شماره تماس گیرنده است.
مخابرات که در همه جا ایران در حال حاضر caller id ساپورت می کند ، وقتی کد زیر را اجرا کردم پیغام ( کالر ایدی پشتیبانی می شود) در صفحه memo ظاهر شد حال به نظر شما اشکال از کجاست؟؟؟

Var
Lvlinecaps : Tlinecaps;
Begin
KDphone1.GEtlineCaps(0,lvlineCaps);
If lccallerID in lvlineCaps then
Memo1.line.Add('کالر ایدی پشتیبانی می شود')
Else
Memo1.line.Add('کالر ایدی پشتیبانی نمی شود');

کسی نیست بهم کمک کنه؟؟؟