API函数:PatBlt(MyHDC:HDC;X,Y,WIDTH,HEIGHT:INTEGER;MODE);

例如:

var
 MyDC:HDC;
Begin
 MyDC:HDC;
 MyDC:=GetDC(Form1.Handle);
if not PatBlt(MyDC,1,1,100,100,DSTINVERT) then
  ShowMessage('ERROR :~(');
End;