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