از برگه Standard يك Memo آورده و در رويداد OnCreat فرم خواهيم نوشت :

از برگه Standard يك Edit   آورده  و در رويداد OnCreat فرم خواهيم نوشت :

Setwindowrgn(edit1.handle,createroundrectrgn(2,2,edit1.width-2,edit1.height-2,15,15),true);

از منوي Project گزينه Options را انتخاب مي كنيم در برگه form و از ليست Main Form  فرم

۲ را انتخاب مي كنيم . از اين به بعد زماني كه برنامه اجرا مي شود  فرم ۲ فرم اصلي ما خواهد شد. 

يك Button بر روي فرم آورده و در رويداد OnCreat فرم مي نويسيم :

Screen.cursors[100]:=loadcursorfromfile('shahab.ani');

Button1.cursor:=100;

دو تا Edit مي آوريم Edit1 و Edit2   براي اينكه بخواهيم با فشردن كليد Enter از Edit1 به Edit2 برويم در رويداد OnKeyPress  Edit1  كد زير را خواهيم نوشت :

If key=#13 then

Sendmessage(handle,wm_nextdlgctl,0,0);

در رويداد onKeyPress ٍ Edit2  هم خواهيم نوشت :

If key=#13 then

;(Sendmessage(handle,wm_nextdlgctl,1,0

يك Edit  آورده  و در رويداد OnKeyPress  آن خواهيم نوشت :

IF (key=#13) then key:=#0;

يك Button آورده و در رويداد OnClick آن خواهيم نوشت :

يك Button آورده و در رويداد OnClick آن خواهيم نوشت :

Winexec('c:windows\regedit.exe',sw_shownormal);

يك Button آورده و در رويداد OnClick آن خواهيم نوشت :

Sendmessage(application.handle,wm_syscommand,sc_tasklist,0);

ابتدا دو Button بر روي فرم آورده و خواصيت Caption آنها را بترتيب به Show و Hide تغيير مي دهيم بر روي Show  دابل كليك كرده و كد زير را مي نويسيم :

Showcursor(true);

و بر روي Hide  هم دابل كليك كرده و كد زير را خواهيم نوشت :

Showcursor(false);