Ich habs! Ich habs! 
In den Specs steht, dass bei 16 Bit Waves die Bytes vertauscht im Word stehen... Aber so ganz stimmte das scheinbar nicht, denn die Delphi-Funktion "Swap" macht den Rücktausch, und damit waren die Waves falsch behandelt!
Nach kurzer Betrachtung der gezeichneten Rohdaten fiel es mir wie Schuppen von den Augen!
Pack mal in die Unit2 folgende function:
Delphi-Quellcode:
function SwapWord(val: Word): Word;
begin
result := val xor $8000;
end;
// Diese Operation könnte auch verständlicher aussehen, aber ich vermute, dass das obige schneller ist. :)
// Ich schreib mal die ersichtlichere Variante:
if val > 32768 then result := val - 32768
else result := val + 32768;
Du musst dann nur noch in der Prozedur:
"procedure TLoadThread.readDataChunkData;"
alle Vorkommen von "Swap" in "SwapWord" ändern (sollten 3 sein).
Und die Variable "temp" in dieser Prozedur sollte vom Typ "Word" sein, nicht mehr Integer. Ist aber eigentlich nur Kosmetik.
Des Weiteren solltest du die beiden Typen:
TByteArray = array of ShortInt;
TWordArray = array of SmallInt;
in ihre Urpsrungsform:
TByteArray = array of Byte;
TWordArray = array of Word;
ändern.
Das hat dann allerdings zur Folge, dass alle in den arrays vorkommenden Werte positiv sind, also die Nulldurchgänge an 127 bzw. 32767 sind, und nicht mehr 0.
Das müsste beim Zeichnen berücksichtigt werden!
Der function.Name ist mit "SwapWord" zwar nicht mehr so ganz korrekt, aber es ist die Lösung!
Jetzt kann ich wieder gut schlafen
.
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel