<soapenv:Header>
<wsse:Security
soapenv:mustUnderstand="1"
xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
<wsse:UsernameToken
xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
<wsse:Username>sledzeniepp</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">PPSA</wsse:Password>
</wsse:UsernameToken>
</wsse:Security>
</soapenv:Header>
procedure TForm1.FormCreate(Sender: TObject);
begin
SYNAPSE_RegisterHTTP_Transport();
end;
procedure TForm1.Button1Click(Sender: TObject);
var Client : SledzeniePortType ; // connection
witajparam: witaj_type;
myResult: witajResponse;
begin
Client := wst_CreateInstance_SledzeniePortType() ;
witajparam := witaj_type.Create() ;
witajparam.imie:='Artur';
myresult:=Client.witaj(witajparam);
memo1.Lines.Add(myresult.return);
end;