Fórum Problema com SetFocus #173523

Em minha aplicação, mais precisamente no form de vendas eu tenho um
Panel onde solicito a senha do vendedor, ele esta com a propriedade
Visible = false, e a mesma somente é ativada em dois eventos
distintos, no OnShow do form de vendas e quando vou iniciar uma nova
venda.
O que esta acontecendo é o seguinte:
Eu não consigo mandar o foco para o edit que vai receber a senha, ele insiste em ficar no cliente.

O evento para exibir o panel esta da seguinte forma:
Tanto no evento on show quanto no evento onclick do botão novavenda.
procedure TVendaForm.NovaVenda(Sender:TObject);
begin
Panel1.Left := 134;
Panel1.Top := 176;
Panel1.Visible := True;
RegiaoMouse := Panel1.ClientRect;
RegiaoMouse.TopLeft := Panel1.ClientToScreen(RegiaoMouse.TopLeft);
RegiaoMouse.BottomRight := Panel1.ClientToScreen
(RegiaoMouse.BottomRight); // Todo este procedimento é para fixar o
mouse dentro do panel.
ClipCursor(@RegiaoMouse);
EditSnh.Setfocus ///Este comando ele não obedece nem a porrete..
end;
Se alguém puder me ajudar desde já agradeço..

Fausto