超高难度-->有谁做过类似编译程序的词法语法解析器?或哪有现成的控件下载?

我们现在做的一个系统,因需要,需要自定义
一种语言.有以下几种主要语法
(模访pascal,变量无数据类型)
aaa=3;//赋值语句
333:
  goto 333;//go语句
for i=3 to 4 do//for 语句
begin
end;
while aaa>3 do//while 语句
begin
end;
function fun1(abc);//函数
begin
 i=abc;
 j=1;
 for i=1 to 4 do
 begin
  j:=j+i;
 end;
 result:=j;
end;
delphi中使用getmem()创建一堆,用于自定义语言创建变量,自定义语言在delphi中的调用形式是RunMyFun('fun1(33)'),fun1可以在运行期间由用户动态编辑，返回一variant类型．
其实这就是一个编译程序所完成的功能,,不知有没有哪位做过这方面的,,不如贴段代码来,,不胜感激.