深夜求助，delphi中一个问题
如何执行在memo1里面的命令

例如下面
ShowMessage('a');
Caption：='a';
abc:='abc';

当然上面的是例子 有没有方法可以动态执行呢？

[解决办法]
脚本化。。。。。。。。

应该流传有几个pascal脚本引擎了
[解决办法]
你可以设计一种自己的脚本语言，然后用Delphi来解释。当然，如果问题复杂，你也可以现有的脚本组件。我建议自己动手，丰衣足食。
多说一点，在具体实现时，不要使用过于复杂的表示方式。如ShowMessage /a程序看到了ShowMessage 就用ShowMessage或者MessageBox函数把后面"/"后的内容显示出来,或者连"/"都不用更简洁，软件的使用者也更好记忆。一定要让自己的程序用更少的代码去分析，要让使用者更容易学习。使用者只在乎功能是否合格，使用是否便捷。
[解决办法]
使用这个就能解决你的问题：http://download.csdn.net/tag/paxCompiler
[解决办法]
if pos('ShowMessage('a');',memo1.text) <> 0 then
begin
showmessageShowMessage('a');
end;

if pos('Caption：='a';',memo1.text) <> 0 then
begin
label1.caption := a;
end;