[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;