如題:不知道為什麼原因出現這個錯誤訊息，可以麻煩請指教，謝謝。
Unit CreatForm;
function GetSoundDeviceName(nNum: Integer;out DeviceName: Pchar; nDeviceNameSize: Integer;out DisplayName:Pchar; nDisplayNameSize: Integer;out DriverName: Pchar;nDriverNameSize: Integer): HRESULT; stdcall;
procedure TForm1.FormCreate(Sender: TObject);
var

S1,S2,S3 :array[0..255] of char;
begin

GetSoundDeviceName(1,S1,256,S2,256,S3,256); Complie之後，會顯示這一行 "types of actual and format var parameter must be identocal "的錯誤

不知道是什麼原因~~是我不會用Pchar..還是其他原因ㄋ~~可以麻煩指教~~感激問分~~