一个进程的问题

Question

我做了一个进程，调用中出了问题，请问我该怎么做，还是说进程的理解出了问题。
procedure TForm6.find1(Sender: TObject;var findstr1:string;findstr2:string);
var
 Querystr:String;
begin
  Querystr:='Select * from carmima where 用户名='''+findstr1+''';
  DM.Sqlexe4(Querystr);
  DM.Query4.open;
  if  DM.Query4.RecordCount=0 then
   Application.MessageBox('该用户不存在！','提示',0)
  else
    begin
      if DM.Query4.['密码']<>findstr2 then
       Application.MessageBox('密码错误！','提示',0);
       exit
    end;
endprocedure TForm6.Button3Click(Sender: TObject);
begin
 find1(Edit4.text;Edit5.text);//这里出问题了。
end;

Answer 1

就算调用也应该是这样才符合语法。
find1(Sender, Edit4.text, Edit5.text);//这里出问题了