CANNOT FOCUS IN DISABLE OU INVISIBLE WINDOWS

Alguém pode me dizer por que está dando esse erro...

´CANNOT FOCUS IN DISABLE OU INVISIBLE WINDOWS´
´Não pode focalizar uma janela invisível ou desabilitada´

procedure TFormCadAgencia.BtnSalvarClick(Sender: TObject);
begin
if DBEdit1.text = ´´ then
begin
Application.MessageBox(´O Campo ´Agência´ não pode estar em branco.´,´Informação´,
mb_ok + mb_IconInformation);
DBEdit1.SetFocus;
end
else
begin
if DBEdit2.text = ´´ then
begin
Application.MessageBox(´O Campo ´Nome da Agência´ não pode estar em branco.´,´Informação´,
mb_ok + mb_IconInformation);
DBEdit2.SetFocus;
end
Else
Begin
if (DBEdit1.text <> ´´ ) and (DBEdit2.text <> ´´) then
begin
if application.MessageBox(´Confirma a Inclusão desta Agência?´,´Confirmação´,
mb_yesNo + MB_IconQuestion) = idYes then
begin
[color=darkred:547e6ce00b][b:547e6ce00b]TbAgencia.Post; //O ERRO DÁ NA HORA DE SALVAR[/b:547e6ce00b][/color:547e6ce00b]
TbAgencia.Append;
wwDBLookupCombo1.setfocus;
end
else
begin
TbAgencia.Cancel;
Self.Close
end
end;
end;
end;

end;