Duda con condicion if then.......???

[sergiogb]

Saludos, estoy haciendo un pequeño control con tarjeta magnetica donde capturo un numero que viene en la tarjeta, desde un inicio asigno una imagen a un control timage,al pasar la tarjeta y hacer la comparacion de la numeracion con la que tengo en el if me despliega una imagen si es correcto el numero y despues quiero que se regrese a la imagen predefinida como de inicio, el detalle es que trato de usar un sleep() para detener un par de segundos en lo que me despliega la imagen y al finalizar tratar de montar de nuevo la imagen predefinida, pero no logro que haga esa accion ya que solo me despliega la imagen predefinida, se detiene los segundos indicados por el sleep() pero nunca miro la imagen que es validada, no se si me explique lo suficiente, alguien tiene alguna idea, este es el codigo:

procedure TForm2.Edit1Change(Sender: TObject);
var a,b,c,d,e,f,g,h :string;
begin
if (length(edit1.Text)) > 23 then
begin
a:=edit1.text[1];
b:=edit1.text[2];
c:=edit1.text[3];
d:=edit1.text[4];
e:=edit1.text[5];
f:=edit1.text[6];
g:=edit1.text[7];
h:=edit1.text[8];
nombre:= b+c+d+e+f+g;
if nombre='000800' then{condicion de prueba}
begin
image2.Picture.loadfromfile('C:\foto.bmp');
sleep(1500);
image2.Picture.loadfromfile('C:\fotoinicial.bmp');
edit1.Text:=' ';
end;
end;
end;

[[cHackAll]]

Código Delphi [-]
procedure TForm2.Edit1Change(Sender: TObject);
begin
 if (length(edit1.Text) > 23) and (Copy(edit1.text, 2, 6) = '000800') then
  begin
   edit1.Text := '';
   image2.Picture.loadfromfile('C:\foto.bmp');
   timer1.Enabled := True; // Interval = 1500
  end;
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
 timer1.Enabled := False;
 image2.Picture.loadfromfile('C:\fotoinicial.bmp');
end;

Usa: [delphi] código [/delph¡]

Saludos

[sergiogb]

Muy agradecido cHackAll sinceramente ya estaba algo mareado y no daba con logica, es una solucion perfecta bueno en fin soy un novato total, espero progresar, gracias a personas como tu en el club muchos podemos resolver dudas que para nosotros los principiantes son bastante enredosas, gracias.