ElistError, novamente..

Seguinte.. Tenho cmo campo chave na minha tabela [IB6] o campo CODIGO, colocqie um evento OnClick no Dbgrid da seguinte forma:

edtcodigo_cliente.Text:=dtmcontrole.Qry_Cliente.fieldbyname(´Codigo´).AsString;
if dtmcontrole.Cliente.FindKey([edtcodigo_cliente.Text]) then
begin
edtcodigo_cliente.Text:=dtmcontrole.ClienteCODIGO.AsString;
edtnome_cliente.Text:=dtmcontrole.ClienteNOME.AsString;
mskrg_cliente.Text:=dtmcontrole.ClienteRG.AsString;
mskcpf_cliente.Text:=dtmcontrole.ClienteCPF.AsString;
edtendereco_cliente.Text:=dtmcontrole.ClienteENDERECO.AsString;
mskcep_cliente.Text:=dtmcontrole.ClienteCEP.AsString;
edtcidade_cliente.Text:=dtmcontrole.ClienteCIDADE.AsString;
edtestado_cliente.Text:=dtmcontrole.ClienteESTADO.AsString;
msktelefone1_cliente.Text:=dtmcontrole.ClienteTELEFONE1.AsString;
msktelefone2_cliente.Text:=dtmcontrole.ClienteTELEFONE2.AsString;
mskcelular_cliente.Text:=dtmcontrole.ClienteCELULAR.AsString;
edtmail_cliente.Text:=dtmcontrole.ClienteMAIL.AsString;
edtrepresentante_cliente.Text:=dtmcontrole.ClienteREPRESENTANTE.AsString;
edtmodalidade_cliente.Text:=dtmcontrole.ClienteMODALIDADE.AsString;
edtcomissao_cliente.Text:=dtmcontrole.ClienteCOMISSAO.AsString;
end;
btneditar_cliente.Enabled:=true;
btnremover_cliente.Enabled:=true;
btninserir_cliente.Enabled:=false;
edtnome_cliente.SetFocus;

Okay.. O problema está quando: EU CLICO em qualuer outro campo que não seja o chave, advnhha: ELISTERROR ´List Index out of bounds [1]´