一个正则过滤的代码，帮我看看那里错了

seqq

procedure TForm1.Button1Click(Sender: TObject);
function GetStr(AURL: string): string; overload;
var
mybody,mytitle:String;
begin
mybody:='北京市中关村第一中学！';
mytitle:= GetStr(mybody,'北京市','！');
Edit1.Text:=mytitle;
end;

错误信息：

[Error] Unit1.pas(33): Too many actual parameters
[Error] Unit1.pas(37): ';' expected but '.' found
[Error] Unit1.pas(39): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

丿Clover灬夢

function GetStr(AURL: string): string; overload;这个方法被你重载了，在方法，你只输入了一个参数 在调用的时候 给了三个参数