if Farbe = 'orange'
     then
      begin
       if Richtung = 'links'
         then
           region := rect(0, 0, 39, 39);
       if Richtung = 'oben'
         then
           region := rect(39+1, 0, 39*2+1, 39);
       if Richtung = 'rechts'
         then
           region := rect(39*2+2, 0, 30*3+2, 39);
       if Richtung = 'unten'
         then
           region := rect(39*3+3, 0, 30*4+3, 39);
      end;
    Bild.Canvas.CopyRect(region, TempBild.Canvas, region);