1:
2:
3:
4:
5:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeMem(arr); // <-- und da ist der fehler denn auch schon!
  FreeMem(parr);
end;					

1:
2:
3:
4:
5:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Finalize(arr);
  Finalize(parr);
end;					

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

procedure TForm1.Button1Click(Sender: TObject);

var

  Itemcounta, a :string;

  i  :integer;

begin

a:='';

Itemcounta :=Inputbox('Warenanzahl',

               'Bitte geben Sie die Anzahl der Waren an', Itemcounta);

Itemcount := StrtoInt (Itemcounta);

SetLength(arr, ItemCount);

SetLength(parr, ItemCount);

for i:=0 to Itemcount-1 do

begin

Arr[i]:=Inputbox(''+Inttostr(i+1)+'ter Wert',

             'Bitte geben Sie den '+Inttostr(i+1)+'ten Wert an',a);

parr[i]:=Copy(arr[i],

                                 Pos(',', arr[i]) +2,Pos(',', arr[i]) +2 );



end;

end;