NetReceiveReleaseRequest Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveReleaseRequest(ASender: TObject;
  hNet: Integer);
var
   strOut: String;
begin
   //Release Request was received
   strOut:= 'Release Request was received';
   Memo1.Lines.Add(strOut);
   LEADDICOMNet1.SendReleaseResponse(hNet);
end;