Flash trackbar ses cızırtısı

[cdmesut]

merhaba ben aşağıdaki kod delphide flash videolarını oynatıyor ama iş ses çıkarmaya gelince ses kesik kesik geliyor..
acaba bu sorunu nasıl düzeltebilirim

Kod: Tümünü seç

procedure TForm1.btnExitClick(Sender: TObject);
begin
close;
end;
procedure TForm1.btnStopClick(Sender: TObject);
begin
flash1.Stop;
end;
procedure TForm1.btnRewindClick(Sender: TObject);
begin
flash1.Rewind;
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
 var pl: boolean;
begin
flash1.GotoFrame(trackbar2.position);
Flash1.Play;

end;

procedure TForm1.btnPlayClick(Sender: TObject);
begin
TrackBar2.Max:=flash1.TotalFrames;
flash1.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

    trackbar2.Position:=flash1.CurrentFrame;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar2.Max:=flash1.TotalFrames;
end;

end.