如何在Delphi中使用正则表达式

machs: IMatchCollection;
Matchs: Match;
submatch: ISubMatches;
i, j: integer;
begin
RegExp1.Global := true;
RegExp1.Pattern := ''''\w \.\w (?!.)'''';
RegExp1.IgnoreCase := true;
machs := RegExp1.Execute(''''http://www.xcolor.cn/dd/page1.htm'''') as
IMatchCollection;
for i := 0 to machs.Count - 1 do
begin
Matchs := machs.Item[i] as Match;
submatch := Matchs.SubMatches as ISubMatches;
memo1.Lines.Add(matchs.Value);
//for j:=0 to submatch.Count -1 do
// memo1.Lines.Add(submatch.Item[j])
end;

end;