procedure
ws:
WebServiceSoap;
H:
XXXHeader;
begin
ws :=
GetWebServiceSoap;
H :=
XXXHeader.Create;
try
H.Username :=
‘xxx’;
H.Password :=
MD5(‘xxx’);
(ws as
ISOAPHeaders).Send(H);
ws.someMethod;
finally
H.Free;
ws :=
nil;
end;
end;