[[xEsk]]

Del código que has puesto, te puedo decir que debes cambiar 2 cosas, y dejarlo algo parecido a esto:

Código Delphi [-]
var
  P: PByte;
begin
  P:= PByte(lpData);
  for i:= 1 to dwBytesRecorded do
    begin
      Canvas.LineTo(0,Byte(P));
      Edit1.Text := IntToStr(Byte(p));
      inc(P);
    end;
end;

Saludos