كيف تغير اسم الlabel على form عن طريق handle

[php3man]

السلام عليكم ورحمه الله وبركاته

كيفيه تغير label علي form عن طريق الهاندل

جربت داله sendmessage ولم تصلح
جربت داله أخري SetWindowText ولم تصلح
مثال عندي form1 فيه label1

كود :

label1.caption = 'delphi4arab'

قيمة handle ال label1 كمثال 659878 كيف تغيره من رقم الهاندل ؟

[TF6M]

السلام عليكم

PHP كود :

Function _SetWindowText(NewStr:String): Boolean;
Begin
 Result:= SetWindowText(FindWindowEx(FindWindow(Nil
                       ,'Calculatrice'){Window Caption}
                       ,0,'Button'{ClassName},'Inv'),Pchar(NewStr));
End; 


النتيجة (...)
راجع الـ System class مثلا في حالة الـ Label ا, ClassName = Static , بالتوفيق,,

[php3man]

السلام عليكم ورحمه الله وبركاته

المشكلة يا غالي ان
اسم الكلاس الاساسي التكست متغير

وفي كلاسات كتييير بنفس الاسم وlabel1

رقم متغير تعداد رقمي لأسفل

50
49
48
47
46

[TF6M]

Class Name = Static
الأن نأتي للتصنيف حسب الـ Caption

PHP كود :

Procedure _SetWindowText(NewStr,OldStr:String);
Begin
 SetWindowText(FindWindowEx(FindWindow(Nil
                 ,'Calculatrice'){Window Caption}
                 ,0,'Static'{ClassName},OldStr),Pchar(NewStr));
End; 

_SetWindowText('Delphi4Arab','Label1');
_SetWindowText('Delphi4Arab','Label2');
_SetWindowText('Delphi4Arab','Label3');
...