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