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:
43:
44:
45:
46:
47:
48:
49:
50:
51:

program Project2;

uses
  SysUtils, SDL;

Type
   TPlayer = class
   private
      img  : PSDL_Surface;
   public
end;

var
   Pl1 : TPlayer;

   screen  : PSDL_Surface; // Bildschirm Surface (=Obefläche)
   rectPos : PSDL_Rect;    // Rect um Position des Bildes zu übergeben
   event   : TSDL_EVENT;   // Wird hier nur fürs beenden durch ESC gebraucht

   ENDE : Boolean;         // Wenn ENDE = TURE dann beende die Hauptschliefe

begin
  SDL.SDL_Init(SDL_INIT_VIDEO);

  screen := SDL_SetVideoMode(800, 600, 32, SDL_HWSURFACE);

  Pl1.img := SDL_LoadBMP('bild.bmp'); //Hier wird "Bild.bmp" geladen
  ENDE := FALSE;

  //Hauptschleife
  while(ENDE = False) do
  begin
     SDL_FillRect(screen, nil, $0000ff);

     rectPos.x := 100;
     rectPos.y := 100;
     SDL_BlitSurface(Pl1.img, nil, screen, @rectPos);

     SDL_Flip(screen);

     while (SDL.SDL_PollEvent(@event)=1) do begin
        case event.type_ of
           SDL_KEYDOWN:
              case event.key.keysym.sym of
                 SDL.SDLK_ESCAPE: ENDE := TRUE;
              end;
        end;
     end;
  end;

end.					

1:
2:
3:

Pl1 := TPlayer.Create;
// später
Pl1.Free;