286(2): 名前は開発中のものです。 [sage] 03/05/20 02:17 ID:zL9Q18du(1) AAS
>>285
sleep() でウェイトをかましているからでは。
ＷＩＮのタスクを独り占めして文字通り眠ったようになりますから。

タイマーとカウンタを使うのはどうでしょう？
TForm1.FormCreate の所で cnt を 1 に設定しておいてから、

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\00' + IntToStr(cnt) + '.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
Inc(cnt);
if cnt>6 then cnt:=1;
end;

というのは如何でしょう？
あと、 bmp ファイルは最初にまとめて ImageList へ読み込ませては？