那你只有设个变量就可以了,输错一次加个1,大于3的时候执行 结束的语句就可以了

//窗体全局变量 
var i_cnt:integer//判断登录次数
//登录按钮OnClick事件
begin
     with query1 do
     begin
           Close;
           Sql.clear;
           Sql.add('select * from login where id=:id and pwd=:pwd');
           Parameters.ParamByName('id').Value:=Trim(Edit1.Text);
           Parameters.ParamByName('pwd').Value:=Trim(Edit1.Text);
           Open;
            if RecordSet.RecordCount<=0 then
            begin
              Application.MessageBox('用户名或密码错 误 !','信',MB_ICONSTOP+MB_OK);
            Edit1.Text:='';
            Edit2.Text:='';
            Edit1.SetFocus;
            inc(i_cnt);
            if i_cnt>=3 then
            begin
               Self.Close;
            end;
       end;
end;