题目：Delphi Memo控件中处理[请按要求帮忙]？

题目要求如下：

控件组成：Form1,Memo1,Memo2,Button1（Button1是“处理”按钮）

Memo1输入（粘贴）内容如下：

0040150C   . E8 33030000    CALL <JMP.&MFC42.#3874>
00401511   . 8B07           MOV EAX,DWORD PTR DS:[EDI]               ;  //ECX出现输入的"Serial"
00401513   . 8038 36        CMP BYTE PTR DS:[EAX],36                 ;  //比较注册码第1个字符是否等于"6"，否则出错
00401516   . 75 1E          JNZ SHORT COSH_2.00401536
00401518   . 8078 01 32     CMP BYTE PTR DS:[EAX+1],32               ;  //比较注册码第2个字符是否等于"2"，否则出错
0040151C   . 75 18          JNZ SHORT COSH_2.00401536
0040151E   . 8078 02 38     CMP BYTE PTR DS:[EAX+2],38               ;  //比较注册码第3个字符是否等于"8"，否则出错
00401522   . 75 12          JNZ SHORT COSH_2.00401536
00401524   . 8078 03 37     CMP BYTE PTR DS:[EAX+3],37               ;  //比较注册码第4个字符是否等于"7"，否则出错
00401528   . 75 0C          JNZ SHORT COSH_2.00401536
0040152A   . 8078 04 2D     CMP BYTE PTR DS:[EAX+4],2D               ;  //比较注册码第5个字符是否等于"-"，否则出错
0040152E   . 75 06          JNZ SHORT COSH_2.00401536
00401530   . 8078 05 41     CMP BYTE PTR DS:[EAX+5],41               ;  //比较注册码第1个字符是否等于"6"，否则出错
00401534     74 17          JE SHORT COSH_2.0040154D                 ;  ****关键跳转，只要上面不出错就会成功！*****

要求进行“处理”，保留有下面规定的字符：

'0'..'9','a'..'z','A'..'Z',' ',',','+','-','*','.','[',']','(',')','/',';'

其它字符忽略或删去

结果输出到 Memo2

请给出 Delphi 7 的编程方法（具体过程即是“处理”按钮 Button1的处理过程，包括定义变量到过程过程结束），先不论方法优劣，成功就可以了，或者我先前没法将目的说清楚，大家不知怎么答复我，希望大家继续指点我... thanks!

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)