unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const WM_TestMessage = WM_USER + ; type TForm1 = class(TForm) btn1: TButton; edt1: TEdit; btn2: TButton; procedure FormCreate(Sen…