网上有个朋友写的一篇30分钟正则表达式入门的东东，不错，推荐。
使用时请在uses中加入RegExpr（有现成的pas文件，你需要可以向我要）
function GetName(TextToCheck:String):string;
Var
myExpr: TRegExpr;
str:string ;
begin
myExpr := TRegExpr.Create;
Try
myExpr.Expression :='name="(.*?)"';//具体的表达式写在这里，当然，你可以继续把它封装。
if myExpr.Exec(TextToCheck) then
repeat
str:=str+myexpr.Match[1]+#13#10;
until not MyExpr.ExecNext;
finally
myExpr.Free;
end;
Result:=str;
end;
调用方式
Memo2.Lines.Add(GetName(Edit1.Text));