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:
52:
53:

procedure p_image;
begin
with form1 do
begin
v_d:= inttostr(v_x)+'.bmp';
Image1.Canvas.Create;
Image1.Picture.LoadFromFile(v_d);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
v_z:= strtoint(Edit1.Text);
if v_z<1 then showmessage('Bitte eine positive Anzahl eingeben!')
else
begin
v_y:=v_z;
Edit1.Enabled:=False;
BitBtn3.Enabled:=True;
Button1.Enabled:=False;
v_x:=1;
p_image;
end;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
BitBtn3.Enabled:=true;
v_x:= v_x-1;
p_image;
if v_x=1 then BitBtn2.Enabled:=false;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if v_x=v_y then BitBtn3.Enabled:=false
else
begin
BitBtn2.Enabled:=true;
v_x:= v_x+1;
p_image;
if v_x=v_y then BitBtn3.Enabled:=false;
end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_LEFT then if BitBtn2.Enabled=true then  BitBtn2.Click
else begin end else
if Key = VK_RIGHT then if BitBtn3.Enabled=true then BitBtn3.Click;
end;					

1:

Image1.Canvas.Create;					

1:

Image1.Canvas.StretchDraw();