Imagem - efeito cortina em bitmap para aparecer

// efeito cortina

procedure TForm1.Button1Click(Sender: TObject);

var

  I, J: integer;

  R   : TRect;

  Bmp : TBitmap;

begin

  Bmp := TBitmap.Create;

  try

    Bmp.LoadFromFile('C:\Documents and Settings\Junior\Meus documentos\Minhas figuras\0.BMP');

    PaintBox1.ClientWidth := Bmp.Width;

    PaintBox1.ClientHeight := Bmp.Height;

    PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);

    R.Left := 0;

    R.Right := Bmp.Width -1;

    for I := 1 to 10 do begin

      J := I - 1;

      while J < (Bmp.Height -1) do begin

        R.Top := J;

        R.Bottom := J+1;

        PaintBox1.Canvas.CopyRect(R, Bmp.Canvas, R);

        J := J + 10;

      end;

      Sleep(50);

    end;

  finally

    Bmp.Free;

  end;

end;