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:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:

...
var sh1: array[1..100] of tshape;
    sh2: array[1..100] of tshape;
    sh3: array[1..100] of tshape;
    sh4: array[1..100] of tshape;
    sh5: array[1..100] of tshape;
    zeit:integer=0;
    start:boolean=false;
    interferenz:boolean=false;
    Amplitude, Frequenz: integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var   i: integer;
begin
For i:= 1 To 100 Do begin
sh1[i]:=tshape.create(form1);
sh1[i].parent:=form1;
sh1[i].Width:=15;
sh1[i].Height:=15;
sh1[i].Shape:=stRoundSquare;
sh1[i].Brush.color:=clblue;
sh1[i].Pen.color:=clblue;
sh1[i].Top:=216;
sh1[i].Left:=18+i*5;
end;

For i:= 1 To 100 Do begin
sh2[i]:=tshape.create(form1);
sh2[i].parent:=form1;
sh2[i].Width:=15;
sh2[i].Height:=15;
sh2[i].Shape:=stRoundSquare;
sh2[i].Brush.color:=clblue;
sh2[i].Pen.color:=clblue;
sh2[i].Top:=216;
sh2[i].Left:=18+i*5;
end;

For i:= 1 To 100 Do begin
sh3[i]:=tshape.create(form1);
sh3[i].parent:=form1;
sh3[i].Width:=15;
sh3[i].Height:=15;
sh3[i].Shape:=stRoundSquare;
sh3[i].Brush.color:=clblue;
sh3[i].Pen.color:=clblue;
sh3[i].Top:=216;
sh3[i].Left:=18+i*5;
end;

For i:= 1 To 100 Do begin
sh4[i]:=tshape.create(form1);
sh4[i].parent:=form1;
sh4[i].Width:=15;
sh4[i].Height:=15;
sh4[i].Shape:=stRoundSquare;
sh4[i].Brush.color:=clblue;
sh4[i].Pen.color:=clblue;
sh4[i].Top:=216;
sh4[i].Left:=18+i*5;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var   i: integer;
begin

Amplitude:=StrToInt(EAmplitude.Text);
Frequenz:=StrToInt(EFrequenz.Text);
inc(zeit);

For i:= 1 To 100 Do begin
sh1[i].Top:=220+round(Amplitude*sin((2*pi/Frequenz)*(zeit-sh1[i].Left/5)));
end;

For i:= 1 To 100 Do begin
sh2[i].Top:=235+round(Amplitude*sin((2*pi/Frequenz)*(zeit-sh2[i].Left/5)));
end;

For i:= 1 To 100 Do begin
sh3[i].Top:=250+round(Amplitude*sin((2*pi/Frequenz)*(zeit-sh3[i].Left/5)));
end;

For i:= 1 To 100 Do begin
sh4[i].Top:=265+round(Amplitude*sin((2*pi/Frequenz)*(zeit-sh4[i].Left/5)));
end;
...					

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:

var
  Form1: TForm1;
  zeit: Integer = 0;
  start: Boolean = false;
  interferenz: Boolean = false;
  Amplitude, Frequenz: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 100 do
    Canvas.Pixels[216, 18+i*5] := clBlue;
end;

procedure TForm1.tmrAnimateTimer(Sender: TObject);
var
  i: Integer;
begin
  Amplitude := StrToInt(EAmplitude.Text);
  Frequenz := StrToInt(EFrequenz.Text);
  Inc(zeit);
  Canvas.Rectangle(0, 0, Width, Height);

  for i:= 1 to 100 do
  begin
    Canvas.Pixels[220+round(Amplitude*sin((2*pi/Frequenz)*(zeit-18+i*5/5))), 18+i*5] := clBlue;
    Canvas.Pixels[235+round(Amplitude*sin((2*pi/Frequenz)*(zeit-18+i*5/5))), 18+i*5] := clBlue;
    Canvas.Pixels[250+round(Amplitude*sin((2*pi/Frequenz)*(zeit-18+i*5/5))), 18+i*5] := clBlue;
    Canvas.Pixels[265+round(Amplitude*sin((2*pi/Frequenz)*(zeit-18+i*5/5))), 18+i*5] := clBlue;
  end;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.TimerSchafLangTimer(Sender: TObject);
begin
Image14.Picture.LoadfromFile(ExtractFilePath(ParamStr(0)) + 'Schaf-lang.bmp');
Image14.Left:=Image14.left +1;
if Image14.left > 290 then TimerSchafLang.Enabled:=false;
end;					

1:
2:
3:
4:

{...}
public
  DeinBild1 : TBitmap
{...}					

1:
2:
3:
4:
5:

procedure ...FormCreate...
begin
 DeinBild1 := TBitmap.create;
 DeinBild1.LoadFromFile(FileName);
end;					

1:
2:

TImage1.Picture.Bitmap := DeinBild1;
//in Deinem Fall Image14....