Wie kann ich diese nette Animation nachahmen?

[Martin K]

Das Original-Bitmap, was WinXP für die Animation verwendet, bekommst Du so:

Delphi-Quellcode:

var h: hModule; Bitmap: TBitmap;
{...}
  h := LoadLibrary('Shell32.dll');
  try
    Bitmap.LoadFromResourceID(h, 138);
  finally
    FreeLibrary(h);
  end;

Dann nimmst Du einfach einen Timer und kopierst per Bitmap.Canvas.CopyRect jeweils die linke vertikale Pixelreihe ganz nach rechts und den Rest um eine Reihe Pixel nach links.
So müsste es auch gehen...