Смена картинки при авторизации

[tyze]

Вот этот код работает

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='qwerty'
  then Image1.Picture.LoadFromFile('1.ico')
  else Image1.Picture.LoadFromFile('2.ico')

Но никак немогу понять почему неработает смена картинки в этом коде

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text='qwerty') and (Edit2.Text='ytrewq')
  then Image1.Picture.LoadFromFile('1.ico')
 else Image1.Picture.LoadFromFile('2.ico')

Что ту может быть неправильно?

[Пепел Феникса]

сначало введите во второй эдит текст, а потом и в первый, тогда поидее должно работать(регистрозависмость есть)

[tyze]

Разве что то ко так:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='qwerty'
then Image1.Picture.LoadFromFile('1.ico' )
else Image1.Picture.LoadFromFile('2.ico' )
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if Edit2.Text='ytrewq'
  then Image1.Picture.LoadFromFile('1.ico')
  else Image1.Picture.LoadFromFile('2.ico')
end;

А можно ли это как то записать в одну процедуру?

[Пепел Феникса]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text='qwerty') and (Edit2.Text='ytrewq')
then Image1.Picture.LoadFromFile('1.ico' )
else Image1.Picture.LoadFromFile('2.ico' )

назначьте этот обработчик обоим эдитам