Заполняет Canvas рисунком с рабочего стола, учитывая координаты

function
 PaintDesktop(HDC): boolean;
// Например:
PaintDesktop(form1.Canvas.Handle);

Другое по теме:

• TCanvas и освобождение дескрипторов
• Алгоритм градиентной заливки
• Вертикальный текст