Fórum Imagem 2x #284723

Galera, eu fiz essa rotina aqui abaixo, só que ela está com bug...
var
dx1,dx2:string;
begin
dx2:=´casa´;
dx1:=edit1.Text;
if(dx1 = dx2)then
begin
Showmessage(´Voce acertou...´);
Image1.Picture.LoadFromFile(´D:\Familia\Renato\Delphi\Evolução\casa.bmp´);
end
else
begin
Showmessage(´Voce errou tente de novo´);
edit1.Clear;
image1.Destroy;
end;
ela nao deixa eu fazer duas vezes a rotina. Assim

edit1 = casa;
voce acertou e mostra a imagem

dai eu apago tudo e faco contrario.

edit1 = saca;
voce errou e dá um pau louco e naum mostra a imagem...
alguem tem uma solução?
grato.