if lParam = Longint(GetDlgItem(Wnd, Tb1ID)) then begin end else if lParam = Longint(GetDlgItem(Wnd, Tb2ID)) then