type
protokol = Array[0..1] of Integer;
var
  Form1: TForm1;
  prot: protokol;
const kulad:string='akara'; parola:string='1234';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
prot[0]:=40905;
prot[1]:=40906;
Application.ProcessMessages;
 HTTPRIO1.URL:='http://11.11.11.11/webservice/service.asmx';
 HTTPRIO1.Service:='Service'; // servis adi
 // Xml istegi gönder
 InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);
 Edit1.Text:=inttostr((HTTPRIO1 as ServiceSoap).SonlandirilmamisVakalarListesi(kulad,parola,prot));

end;

procedure TForm1.HTTPRIO1AfterExecute(const MethodName: string;
  SOAPResponse: TStream);
begin
// gelen Xml cevabi al
cevapMemo.Lines.LoadFromStream(SOAPResponse);
cevapMemo.Lines.Add('Cevap veren method :'+MethodName);
end;

web servisten çekilen funcition tanımı aşağıdaki gibidir.

    function  SonlandirilmamisVakalarListesi(const userName: string; const password: string; var protokoller: ArrayOfInt): Integer; stdcall;

ve aşağıdaki hatayı veriyor.

Types of actual and formal var parameters must be identical

bu hatayı vermektedir. konuyla ilgili desteğinizi bekliyoruz...