Lautsprecher erzeugt Sinuskurve!! WIE??

[Lokke]

Hi Leute!

ich habe einen Lautsprecher, den ich über eine Messkarte ansteuern kann. Nun soll der mir eine Sinuskurve erzeugen! Ich habe ja schon etwas versucht. aber was dann im Oszi angezeigt würde sah überhaupt nicht nach einer Sinuskurve aus. Frequenz 50-60Hz, Amplitude soll von 0-10V gehen.

Hat jemand eine Ahnung wie ich das anstellen kann.

Ich schicke mal was ich gebastelt habe in gekürzter Form:

Delphi-Quellcode:

procedure TForm1.WaveformTypePointerValueChanged(ASender: TObject;Pointer: Integer; var Value: OleVariant);
var
   i: Integer;
const
begin
    Case WaveformType.Value of
        0:
          For i := 0 To 19 do
                data[i] := trunc(5*(Sin(i / 20 * PI*2)));      //Vorerst mit einer Amplitude von 5
    End;
    data[20] := data[0]; // for display purposes only
    CWGraph1.PlotY(data,0,1,TRUE);
end;


procedure TForm1.FormShow(Sender: TObject);
var
   v : OleVariant;
begin
     data := VarArrayCreate([0,20],varDouble);
     WaveformTypePointerValueChanged(WaveformType, 0, v);
end;

Danke für Anregungen