1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Create (Sender:TObject);
begin
Image1.Left:= 5;
Image1.Top:= 5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:= Image1.Left +5;
Image1.Top:= Image1.Top +5;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= not Timer1.Enabled;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure Tfun_football.Timer7Timer(Sender: TObject);
begin
    if (Image4.top=220) and (Image4.left = 350) then
      begin
        Counter:= Counter+1;
        if counter = 500 then
        begin
        counter:=0;
        Timer7.Enabled:=false;
        P_Grafikevent.Visible:= false;
        end;
      end
      else
      begin
        if Image4.Top <> 220 then
           Image4.Top:= Image4.Top-10;
        if Image4.Left <> 350 then
           Image4.Left:= Image4.Left-10;
        application.ProcessMessages;
      end;					

1:
2:
3:
4:

if...then
Image4.Top:= Image4.Top+10
und
Image4.Left:= Image4.Left+10					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

 var
  Form1: TForm1;
  BmpPuffer: TBitmap;
  Bmp1: TBitmap;
  Bmp2: TBitmap;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
const
  B1 = 'c:\win98se\setup.bmp';
  B2 = 'c:\win98se\1stboot.bmp';
begin
  BmpPuffer := TBitmap.Create;
  BmpPuffer.Width := ClientWidth;
  BmpPuffer.Height := ClientHeight;
  Bmp1 := TBitmap.Create;
  Bmp2 := TBitmap.Create;
  Bmp1.LoadFromFile(B1);
  Bmp2.LoadFromFile(B2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bmp2.Free;
  Bmp1.Free;
  BmpPuffer.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ClientWidth do begin
    BmpPuffer.Canvas.Draw(0, 0, Bmp1);
    BmpPuffer.Canvas.Draw(i, 20, Bmp2);

    Canvas.Draw(0, 0, BmpPuffer);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Bitmap1 := TBitmap.Create; 
try 
Bitmap1.LoadFromFile('Mine.bmp'); 
image1.Canvas.Brush.Bitmap := Bitmap1; 
image1.canvas.draw(round(Mine[it].x),round(Mine[it].y),Bitmap1); 
finally 
image1.Canvas.Brush.Bitmap := nil; 
Bitmap1.Free; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

...
private
    { Private declarations }
    procedure WMEraseBkgnd(var m: TWMEraseBkgnd); message WM_ERASEBKGND;
...

procedure Tform1.WMEraseBkgnd(var m : TWMEraseBkgnd);
begin
  m.Result := LRESULT(False);
end;

...