程序运行好慢用什么办法

现有一段代码，在编译运行时发现最后一行语句要运行1分钟才通过，请问什么原因，怎么解决？
下面代码是在用户登录时用的，速度很慢。
Fm_DaBa.QryUser.Close;
Fm_DaBa.QryUser.SQL.Clear;
Fm_DaBa.QryUser.SQL.Text := 'select * from UserName where EUser='''+LoginEUser+'''';
if not Fm_DaBa.QryUser.Prepared then Fm_DaBa.QryUser.Prepare;
但其它的速度很快的，如下面的：
Fm_DaBa.Qry1.SQL.Text