Fórum Frames com eventos #333037

Criei um frame com os componentes EditCodigo, EditNome, ButtonConsulta

ao digitar um numero no EditCodigo e clicar no botao, ele carrega um determinado texto no EditNome. Fiz a rotina do botão da seguinte forma:

procedure TForm1.ButtonConsultaClick(Sender: TObject);
begin
if EditCodigo.Text = ´1´ then
EditNome.Text := ´COMPOSTO´;
else if EditCodigo.Text = ´2´ then
EditNome.Text := ´NÃO COMPOSTO´;
end;

O problema é que quando eu coloco esse Frame em alguma tela ele não funciona. Debugando eu percebi que quando eu clico no botão o EditCodigo.Text está vazio...dae não funciona.

Alguém ja teve esse problema?